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FOREWORD 


Development of the ATLAS integrated structural analysis and 
aesign system was initiated by ‘Ae Boeing Commercial Airplane 
Company in 1969. Continued development efforts have resulted in 
the release and application of several extended versions of the 
systeii! to aerospace and civilian structures. Those capabilities 
of the current ATLAS version developed under the NASA Langley 
Coiitract No. NAS 1-129 11 include the following; geonietry control, 
thermal stress, fuel generation/fnanagement, payload management, 
loadanility curve generation, flutter solution, residual 
flexibility, strength design of composites, thermal fully 
stressed design, and interactive graphics. The monitor of this 
contract was G. L. Giles. The inertia loading capability was 
developed under Army Contract No. DAAG46-75-C-00', . 

This document is one volume of a series of documents describing 
the ATLAS System. The remaining documents present details 
regarding the input data and program execution, data management, 
the engineering method used by the computational modul and 
system-demonstration problems. 

The key responsibilities for development of ATLAS have been 
within the Integrated Analysis/Design Systems Group of the 
Structures Research Unit of BCAC and the ATLAS System Group of 
the Boeing Computer Services (BCS) Integrated Systems and Systems 
Technology Unit. R. E. Miller, Jr. was the Program Manager of 
ATLAS until 1976 after which K. H. Dickenson assumed this 
position. The current ATLAS System is tne result of the combined 
efforts of many Boeing engineering and programming personnel. 
Those who coiitributed directly to the current version of ATLAS 
are as follows: 
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ABSTRACT 






ATLAS IS a structural analysis and design system, operational on 
the Control Data Corporation 6600/CYBER computers. This document 
describes the overall system design, the design of the individual 
program modules, and the routines in the ATLAS system library. 

The overall design is discussed in terms of system architecture, 
executive function, data base structure, user program interfaces 
ana operational procedures. Tlie program module sections include 
detailed code descriptions, common block usage and random access 
file usage. The description of the ATLAS program library 
includes all information needed to use these general purpose 
routines . 
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INTRODUCTION 


ATTjAS is an integrated structural analysis and design system 
operational on the Control Data Corjoration (CDC) 6600/CYBER 
computers. It is a modular system of computer codes integrated 
witliin a common executive and data base framework. The system is 
broad in scope in that its analytical capabilities sirpport many 
different but related aeroelastic technological disciplines. 
Execution of selected computational modules is controlled by the 
user via a concise technically-oriented language. Input data are 
written in a problem-oriented language which offers versatile 
automatic data -generation capabilities. Data preprocessors 
minimize the amount of input data and tlowtime required to define 
the structural problem. Additionally, data postprocessors allow 
selected data to be extracted, manipulated and displayed so as to 
enhance human judgment in tfie interpretation of design results. 

This document contains detailed descriptions of the ATLAS 
system architecture, as well as information required to gain 
prograiianing insight into the various processors. Documentation 
of user input data and execution control statements is given in 
reference 1-1, while the data management system is described in 
reference 1-2. 

This docximent consists of three major xbsections: 

a) Sections 10 through 500 cover material relating to th 
system as a whole, including system architecture, 
maintenance, inodif ications , and operation. 

D) Sections 600, 700, and 800 discuss in detail the code 
relating to the preprocessors, processors, cind 
postprocessors, respectively. 

c) Section 900 covers Interactive Control. 

d) Section 1000 covers the ATLAS Library routines. 
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SYSTEM ARCHITECTURE 


The design and developntent oi the ATLAS program system have 

evolved in keeping with the tollowing basic objectives: 

a. Provide a common progrcimming fram» ork for related structural 
disciplines. This reduces the program development and 
maintenance costs, and increases the reliability of the 
aggregate code by coordinating the program management 
function. 

b. Provide an efficient interface between the program and the 
program user. The usefulness of a computer system depends 
not on its potential capabilities but rather on how easily 
those capabilities can be understood and applied. Both 
concept and design of the program/user interfaces are defined 
with this in mind. 

c. Provide a high degree of computer efficiency in problem 
solution. Emphasis on this objective will not only minimize 
computer costs and flowtime, but will also extend the range 
of feasible solutions. 

c. Provide for open-endedness in program design allowing new 
capabilities to be added to the system. 

The architecture of txie ATLAS system is illustrated in figure 10- 

1 . In the remainder of this section the basic elements of this 

design will be discussed. 

10.1 PROGRAM MODULES 

The code in ATLAS is organized ir. progrcim modules which 

have the following characteristics: 

a. A particular program module is executed by use of 
the ATLAS Control Language (sec. 200) . There is 
one ATLAS control statement corresponding to the 
execution of each module . 

b. A module performs a well defined engineering, 
mathematical, or clerical task. 

c. A module consists of a primary and secondary 
overlay structure. 

d. A modulo communicates with other modules via 
magneti drsk nles, except foi some limited 
executive table information. 
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Figure 10-1. ATLAS System Modular Design 
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class it icat ion 




The ATLAS modules can be classiried accordina to the 

qeneral tunction they pertorm. These functions are 

indicated in figure 10-1 and are explained as follows: 

a. Executive tunction - To monitor the sequence of 
module execution during a computer run. This 
tunction is carriea out by the ATLAS main overlay 
and the Control module . 

b. Technical function - A task which is related to a 
particular engineering theory or discipline. For 
instance, the Stiffness module contains the code 
which represents tfie finite element structural 
tlieory used in ATLAS. The AF1 module is based on a 
particular theory tor calculating subsonic unsteady 
airloads . 

c. Utility tunction - A task defining a major 
mathematical operation, normally involving large 
matrices. Examples of such tasks are solution of 
sets of linear equations , eigenvalue and 
eigenvector calculations, or performance of matrix 
additions and multiplications. 

d. Preprocessing tunction - All input data for a 
problem is processed by one program module, the 
Preprocessor. The Preprocessor is organized in 
sub-modules which consist of one or more secondary 
overlays. Each sub-module will read and interpret 
the data tor a particular technical module. 
Additional sub-modules are provided to handle 
general classes of input data. 

e. Postprocessing .unction - All categories of output 
from ATLAS are generated by postprocessor modules. 
No results will be reported unless one of these 
nK)dules has been executed. Currently there is one 
postprocessor module generating printed results, 
one preparing {^dot data and one which provides a 
program checkpoint capability. The print and 
graphics modules are organized similarily to the 
Preprocessor, i.e., they consist of sub-modules 
vdiich generate results relative to a particular 
technical module. 
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10.1.2 Overview of Capabilitie s 


An overview of the modiile capabilities is given below. 
10.1.2.1 Executive modules 


ATLAi>(0^0) Initializes loading of module overlays 

and closes system data files. 


CWTR0L 

INTERACTIVE 

CVNTR0L 


Defines the sequence of execution of 
system modules. 

Supports interactive execution 
of a control program. 


10.1.2.2 Technical and Utility mod\iles 


ADDINT 

API 

BUCKLING 

CHJJLESKY 

DiiSIGN 

DUBLAT 

FLEXAIR 


Adds and/or interpolates generalized air 
force matrices with respect to reduced 
f requency. 

Generates subsonic inconpressible-flow 
aerodynamic loads according to strip 
theory method for general planar 
surfaces. 

Calculates bifvnrcation buckling loads and 
mode shapes. 

Solves systems of linear symmetric 
equations according to the Cholesky 
method. 

Calctilates margins of safety and resizes 
the structural model according to a fully 
stressed approach. 

Generates subsonic conpressible-f low 
aerodynamic loads according to the 
Doublet Lattice method. 

Generates the flexibility effects of 
truncated vibration modes for flutter. 


FLUTTER Solves the flutter equations. 

INTERPOLATION Establishes mode shape interpolation 

functions to be used by the aerodynamic 
airload generators . 
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l^ADo 

MACHBjaX 

MASS 

MERGE 

MULTIPLY 

RH^3 

STIFFNESS 


Prepares finite element static, inertial 
and thermal loads. 

Generates supersonic flow aerodynamic 
loads usiny the Machbox method with 
subdivision refinement for planar wings 
and tail surfaces with dihedral. 

Generates finite element mass matrices 
tor primary and secondary structure, fuel 
and payload. 

Assembles element matrices or 
substructure matrices to form gross 
structural matrices. 

Performs matrix multiplication and 
addition of large matrices. 

Generates subsonic compressible flow 
aerodynamic loads using a kernel function 
and assumed discrete pressure modes for 
planar siirfaces with trailing edge 
controls. 

Generates the finite element s .ffness 
and Stress matrices. 


STRESS Calculates the finite element stresses. 

VIBRATION Calculates frequencies and mode shapes of 

a structure luider going tree, undamp^ed 
vibrations . 


10.1.2.3 Preprocessor Modules 

PREPK0CESS0R Reads the ATLAS Problem Deck and loads 
the restart tape. 

10.1.2.4 Postprocessor Modules 

EXTRACT Extracts data tor processing by the 

Graphics module and some types of 
printing . 

GRAPHICS Supports all graphic and plotting 

capabilities of the ATLAS system. 
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PRINT 


Prepares printed reports of results 
generated by technical and utility 
modules . 

SAVE Saves all problem data on a checkpoint 

file to enable subsequent problem 
restart . 


to. 2 USER INTERFACES 

The user communicates with the ATLAS system in two ways: 
his Problem Deck defines his technical problem, while 
his Control Deck describes how the analysis shall be 
performed. These interfaces are described in the 
following two sections. 

10.2.1 Problem Deck 


The Problem Deck describes the technical problem to the 
program. The structure of the deck corresponds to the 
structure of the Preprocessor code, i.e., the deck is 
divided into sections, where each section is handled by 
a Preprocessor submodule. Each section is delimited by 
two cards of the type 

ELGIN ••name" DATA 
END "name" DATA 

where "name" is a unique identifier vdiich coincides with 
the i.ame of the corresponding Preprocessor submodule. 

For instance, ‘STIFFNESS* is the ••name" for ir^ut data 
to the Stiffness Preprocessor, and "SUBSETS" the "name” 
of the data to the preprocessor for subset definition. 
Each section may again be divided into subsections by 
delimiter cards 

BEGIN "subsection” DATA 
END "subsection” DATA 

S ’^section names need only be unique for each section. 

The Problem Deck is processed by the input routine 
L0DAREC (sec. 900) . L^3DAREC is based on a free field 
input format. It also has the capability of performing 
internal data generation of the following types: 1) 
generate new data items within a record based on the 
orig’.nal input data, and 2 ) generate one or more 
co:.iplete records from a parent record. 
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In addition to the data qenerciting capabilities provided 
by L0DAREC, ATLAS input conventions allow for additional 
data generation to be performed as described in section 
100.2.2, reference 1-1. 

10.2.2 Control Deck 


The Control Deck allows the user to; 

a) define the sequence of module execution through vise 
of tiie ATLAS Control Language. 

b) add his own code, which may be either F0KTRAN or 
statements from the matrix interpretive SNARK 
language (sec. 10.4). 

The Control Deck is translated into an overlay structure 
as described below. This structure will consist of at 
least a primary overlay containing the code for all of 
the ATLAS Control Language statements. It may also 
contain secondary overlays and subroutines which the 
user lias added. 

All ATIAS Control Language statement has the following 
general format: 

Functional Descriptor (plist) 

The "Functional Descriptor" will identify one, or 
several modules which will be executed as the statement 
is processed. The "plist" is a list of parameters which 
are passed onto the program modules as they are being 
executed. The parameters are used to achieve three 
purposes : 

1) provide option control inside a module, 

2) change default values set in the code, and 

3) pass numeric or alphanumeric information. 

The user may enrich the ATLAS language by defining his 
own "Functional Descriptors" based on the basic language 
capabilities provided by the ATLAS system (ret. 1-1, 
sec. 200.4) . 
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The Control Deck is processed by a precompiler which 
translates the ATLAS Control language statements into 
equivalent FORTRAN code. Code which is not recognized 
as ATLAS statements will be transmitted unchanged to the 
precompiler output file. Thus, ATLAS statements may be 
intermixed with FORTRAN and SNARK code. 

10.3 PROGRAM FILES 

Distinction must be made between tour types of files: 
program overlay files, data communication files, special 
purpose files, and scratch files. The conventions which 
apply to these files are described in this section. 

10.3.1 Overlay Files 

Each program module, consisting of a primary/secondary 
overlay structure in absolute computer executable form, 
will have its own assigned overlay file name. This file 
name consists of 7 characters; the first 4 characters of 
the module name siif fixed by the characters pLF. 

Existing overlay file names are shown in table 10-1. 

10.3.2 D ata Communication Files 

Data communication between program modules occurs on 
named random access disk files. Each module which 
generates global data, i.e., data to be used by other 
modules, will write this data on one specifically 
assigned file. The file name consists of 7 characters: 
the iirst 4 characters of the module name, suffixed by 
the characters RNF. Existing data communication file 
names are shown in table 10-1. 

Data comniunication files are not available to a program 
module until they have been specifically '‘opened” by use 
of the ATLAS system routine FILEADD (sec. 900) . This 
opening function will add the file name to the program 
RA+2 list and define a File Environment Table for the 
file. When a program module terminates execution the 
ATLAS system will ‘close* all communication files that 
were opened. The closing function includes writing the 
random access tables out to the file and removing the 
file name from the RA+2 list. File closing is performed 
by the ATLAS system routine FILEDEL. 
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Table 10-1. 


Overview of Overlay Files and 
Conwunication Files 


1 Module 
I Name 

1 Overlay 
1 File Name 

1 Communication 
1 File Name 

1 

1 

1 ADDINT 

1 ADDIJ3LF 

1 ADDIRNF 

1 

1 AF1 

1 AFIOpLF 

1 AF10RNF 

1 

1 ATLAS 

1 ATLAS 

1 

1 

1 bUCKLINli 

1 BUCK(?LF 

1 BUCKRNF 

1 

1 CH^dLESKY 

1 CHJ^L^F 

1 CHJ«:.RNF 

i 

1 DESIGN 

1 DESIJ2TLF 

1 DESIRNF 

1 

1 DUBLAT 

1 DUBLi^TLF 

1 DUBLRNF 

1 

1 EXTRACT 

1 EXTR0LF 

1 EXTRRNF 

1 

1 FLEXAIR 

1 FLEXpTLF 

1 FLEXRNF 

1 

J FLUTTER 

1 FLUT0LF 

1 FLUTRNF 

1 

1 GRAPHICS 

J GRAPPLF 

1 TAPE99 

1 

1 INPUT 

1 1NPT0LF 

1 DATARNF 

1 

1 INTERPJ^ILATI(?N 

1 1NTE0TLF 

1 INTERNF 

1 

1 LJ^ADS 

1 L0AD0LF 

1 L43ADRNF 

1 

1 MACKEJ3X 

1 MAClIpTLF 

1 MACHRNF 

1 

1 MASS 

1 MASS0LF 

1 MASSRNF 

1 

1 MERGE 

1 MEKG^TLB 

1 MEiRGRNF 

1 

1 MULTIPLY 

1 MULT0LF 

1 MULTRNF 

1 

1 PRINT 

1 PRINJ^F 

1 

1 

1 RH03 

1 RH03J?LF 

1 RH03RNF 

1 

1 SAVE 

1 J^TPTJJLF 

1 

1 

1 STRESS 

1 STRE(?LF 

1 STRERNF 

1 

1 VIBRATI0N 

1 VIBROTLF 

1 VIBRRNF 

^1 


10.3.3 S pecial Purpose Files 


AHjAS makes use of the following special purpose files 
TAPL5 = INPUT - Standard program input file 
TAPhb = ^TPUT - Standard program output file 


TAPE 9b 


- Interactive message file 


TAPE95 
TAPE 9 7 
TAPE 9 8 
TAPE99 
OFFLINE 

SYSRNl 


- These five files are used by 
the plotting software 


- File containing the User Matrix 
Index Catalog 
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SAVESSF - Sequential files used to 

SAVESS1-SAVESS4 support the program checkpoint/ 

restart capability. 


Scratch Files 


Scratch tiles are defined and used locally inside a 
module. Data which have been generated on a scratch 
tile will not be available to other modules. Scratch 
files are opened via the FILEADD subroutine. Scratch 
file names provided by the ATIAS system are: 

SCOOSSF - SC04SSF 
SCOORIF - SC04RIF 
SCOORNF - SC04RNF 

After the module terminates execution, the ATLAS system 
will remove these scratch file names from both the 
program RA+2 list and the File Name Table of the 
operating system. Scratch files other than these must 
be specifically dropped 

THE SHARK LANGUAGE - Core Management and 1/0 in ATLAS 

SHARK is a matrix interpretive language which may be 
used to perform 1/^3 functions, core management of data, 
and in-core mtrix arithmetic. A description of the 
SHARK language capabilities is given in reference 10-1, 
SHARK statements are processed by a precompiler in the 
same way as described tor the ATLAS language. This 
means that each SHARK statement will be replaced by 
equivalent F^TRAN code. Also, SHARK and E0RTRAN code 
may be freely intermixed within the same program or 
subroutine. 

In ATIAS the SHARK language is used: 

1) to perform all 1/0 on the data communication files, 
and 

2) to manage the core work area. 

ATLAS uses the Blank Commcn concept of the CDC computer 
operating system to achieve dynamic core storage 
allocation. In this way the program field length may be 
aajusted to the requirements for each particular 
problem. The program work area is utilized to store 
arrays of problem dependent size. Administration of the 
area includes bookkeeping of existing arrays, allocation 
of space for new arrays, and purging of unneeded arrays. 
These functions are all taken care of by SHARK. 
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ERROR HANDLING 


The ATLAS coding conventioriS distinguish between a 
warning condition and an error condition. 

A warning condition occurs when the code detects an 
ciinbiguity in some data which can be resolved V'd.thout 
user interaction. In this case a warning message will 
oe issued, and the processing will proceed 
vininterrupted. 

An error condition is entered either when the ATLAS code 
detects a fatal inconsistency in logic, or when an error 
is detected by the computer operating system. In the 
first case the module code will abort its execution and 
transfer back to the ATLAS main overlay. To provide a 
simileir transfer in the second case, the system error 
table “ntries have been changed to provide the ATLAS 
main program as the recovery address. Not all error 
conditions detected by the operating system will allow 
return to the ATLAS code. 

From the main overlay, transfer is made to the Control 
Module which either will perform a program exit, or 
branch to an error procedure defined by ATLAS 
statements . In this procedure the user may specify a 
number of tasks to be performed before terminating the 
run, such as executing the program checkpoint 
capability . 
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The flow control function in ATLAS is performed by the main 
overlay and the Control Module. The Control Module defines the 
execution logic of a problem; it specifies the sequence in which 
the program modules will ’>e processed. The primeury function of 
the main overlay is to initiate loading of module overlays per 
instiruction from the Control Module, itius, the Control Module 
performs a task which is highly problem aependent, whereas the 
main overlay operates on a fixed and very limited logic. 

Dividing the program control function in this fashion serves the 
following important objectives; 

a. The core requirements for the main overlay are kept to a 
minimum, thereby minimizing an important part of the system 
overhead cost. 

b. Since the Control Module constitutes a primary overlay 
structure, the problem dependent part of the control f\inction 
can be formed without reloading the rest of the system. 
Considering the size of the ATLAS system this feature becomes 
essential in assuring operating cost efficiency. 

The following two subsections describe in more detail the flow 
control logic performed by the executive modules, including the 
contents of in-core tables which are part of the executive 
system. 

100.1 PROGRAM FLOW 

The ATLAS main overlay and the Control Module 
communicate via the common block MAINCAL described in 
section 100.2. Module execution is specified by using 
ATLAS statements in proper order in the Control Deck. 
Each statement will result in execution of one ATLAS 
module. When execution of an ATLAS statement is 
initiated in the Control Module, the following sequence 
of events will take place; 

a. The name of the module overlay file is set in 
MAINCAL 

b. The address of the next executable statement in the 
Control Module is set in MAINCAL. 

c. Parameters to be passed to the module are set in 
common block C^JNPARS according to the format 
described in section 200.3. 
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msi mn njma 



d. Flow returns to the rnai; overlay, which initiates 
loading of the module overlay. 

e. When the module terminates its processing the main 
overlay will close all conununication files and drop 
dll hTUiS scratch tiles. Communication file names 
and scratch file names will be deleted from the 
KA+2 list. 

t . The main overlay will recall the Control Module to 
proceed with the next statement. 

If a fatal error occurs during the execution the 

following additional events will take place: 

g. A return to the main overlay will be processed 
with a normal exit from the module in the case of a 
module detected error or, to avoid program abort, 
to the beginning of the main overlay in the case of 
an operating system error. The latter exit is 
achieved by changing the system error tables with 
the CDC system routine SYSTEMC. 

h. Ti the logical variable KERRDMP in common block 
£1<RDMP has the value .TRUE, a complete core dump of 
<Jie program field length will be provided on the 
output file. 

i. Hie main overlay then recalls the Control Module 
which either will exit, or branch to the error 
procedure section when specified. 

100.2 SYSTEM CCWMON BLOCKS 


100.2.1 A^^WPARS/ KCJJNPAR, C(3NPARS (30 ,2) , KLABEL, LABEL (30) 


C0NPARS is used to transmit parameters in the ATLAS 
statements from the control module to the other program 
modules. 

KCPWPAR - The number of rows in CJ2NPARS 

utilized to treinsmit parameters 
associated with an ATLAS statement. 

CfJNPARS - Contains the parameters of an ATLAS 
statement. The format in which the 
parameters are stored in CJ?NPARS is 
described in section 200.3. 


KLABEL 


The number of words set in array 
LABEL 
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LABEL 

The job identification specified on 
the PRJ3BLEM ID statement or the most 
recent CHANGE ID statement of the 
Control Modu3e. 

r 

100.2.2 

/ERRDMP/KERRDMP 


ERRDMP is used to print core dumps from the main overlay 
in case of error exit. Thus, a cor® image may be 
provided before the Control Module overlay is loaded. 

i 


KERRDMP - 

Logical variable which is initialized 
to .FALSE, in the main ove^'’ v* A 
value of .TRUE, will result . the 

core dump when an error has urred. 


100.2.3 

/KERP0R/KERRJJR , KW ARN , I PlU 

t 


KERR^K contains the system error counters 



KERRirSR - 

ATLAS system fatal error counter, 
initially set to zero in the main 
overlay. The variable will be 
increased by one for each error 
encountered by the ATLAS code. 



KWARN 

Warning counter, initially set to 
zero in the main overlay . The 
variable is increased by one each time 
a warning condition is encountered by 
the ATLAS code . 

* 


IPTU 

Graphics file generation indicator. 
This variable is set by the Graphics 
module to Irdicate the combination of 
G/T, V/F, and P/F for a particular 
plotting device. 


100.2.4 /KQBUFP/KgBUFP (2) ,SAVESSF ,SAVLSS 1 ,SAVESS2 , 

BAVLSS3 , SAVESS4 , SCO OSSF , SCO ISSF, SC02SSF , 
SC03SSF,SC04S'SF,DBASFIL 


KQBUFP contains the file names of the system save files, 
sequential scratch files and the plot file, /ill names 
are set in the main overlay. 

KQBUFP - Not in use 

SAVESSF' to SAVESS4 - System save files 
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SCOOSSF to SC04SSF 


i 
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DBASFIL 


System sequential scratch files 
Database file 


100.2.5 /XgRNDM/KQ INDX , KQRNDN , KQRNDI , KQRND , 

ADDIRNF , AF 1 0RNF , CH^RNP , DATARNF , DESIRNF , 
DUBLRNF' , INTERNF , L^RNF , MACHRNF ,MASSRNF , 
MZRGRNF , MULTRNF , RHU3RNF , STIt RNF , STRERNF , 
C^TRNP,VIBRRNF, FLUTRNF, FLEXRNF,EXTRRNF, 
F1^NF,SEARRNF,SCALRNF, BUCKRNF ^RESERVE (6) 
SCO ORNF , SC0 1 RNF , SCO 2RNF , SCO 3RNF , SCO 4RNP , 
SCO0RIF,SCO1RIF,SCO2RIF,SCO3RIF,SCO4RIF 


KQRNDM contains the file names of the data communication 
files and the random access scratch files. Values of 
all variables are set in the main overlay 


XgiNDX 

KQRNDN 

KQRNDI 

KQRND 

ADDIRNF to BUCKRNF 
RESERVE (6) 

S COO RNF to SCO 4 RIF 


Random file index table 

space alloted for al 1 
random files 

Number of named random files 

Number of indexed random 
files 

KQRNDN ♦ KQRNDI 

System data communication 
files 

Reserve for future data 
communication files 

Sysvem random scr=^tch files 


100.2.6 /MAIN CAL/I FILE, .IERRCT,ISAVERR,NEXTADR,KXINST, 
CPTACC,ICYCLE 


MAINCAL is used tor coimiunication between the main 
overlay and the Control Module 

IFILE - Overlay file neune of the current 
program uiodule being executed. 

The name is set in Control Module. 

lERRCT - Counter ror operating system detected 
errors . The variable is set to zero 
as execution starts, and is incremented 
by one in the main overlay each time such 
an error occurs. 
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ISAVEJkR - Value of ILKKCT upon last exit from 
the Control Module. Va2ue is set 
in the Control Module. 


NEXTADR - Statement number in Control Module 

where processing will resume when the 
module is recalled . Value is set in 
the Control Module. 

KXINST - Identifier of the current ATLAS 

statement being executed. Value is 
set in the Control Module . 

CPTACC - Accumulated central processor time. 

Value is updated in the Control Module 
routine 0VRRTN upon return from a 
program module , 


ICYCLE - Frequency count of Control Module 

execution. Value is updated in the 
Control Module. 


100.2.7 /MATTAP./NKBLK,NNL1M, NNP0S ,NCBLK,NCLIM, NCPpS, 
MANNAM,MACNAM,SYSRNF,MAN(201) , 

MAC (30,2) ,MACSUM 

MATTAB is used to maintain the User Matrix Index 
Cata. og. This catalog is stored in two parts, the 
Matrix Name Catalog and the Matrix Parameter Catalog, on 
the SYSRNF file as described below. The catalog is 
accessed by the ATLAS system routines GMISRT and GMLKUP. 


NNBLK 

NNLIM 

NNP0S 

NCBLK 

NCLIM 

NCP0S 

:>fANNAM 


Number of data blocks used to store 
the Matrix Name Catalog (MAN) . 

Size of MAN array minus one 

Address of last entry in MAN array 

Number of data blocks used to store 
the Matrix Parameter Catalog (MAC) . 

Row dimension of MAC array 

Address of last entry in MAC array 

Random index name of MAN array 
disc records 


MACNAM - Randor. rndex name of MAN array 
disc records 
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SYSRNF - Nanie of file containing the User 
Matrix Index Catalog 

MAN - Core resident part of the Matrix 

Name Catalog, This array contains 
the names of the matrices in the 
catalog and pointers to where the 
rest of the catalog can be found. 
Each entry of the array has the 
following format. 


Bits 59-18; Matrix name (MN) 

Bits 17-9: Data record number (RN) 

of MACNAM containing 
the catalog for MN. 

Bits 8-0: Entry in record RN where 

catalog is stored 

MAC - Core resident part of the Matrix 
Parameter Catalog. Each entry 
extends over two words, with the 
the following contents: 


Word MAC (1,1) : 

Bits 59-36: The four leftmost characters 

of the file name where matrix 
is stored. 

Bits 35-18: Matrix row dimension 

Bits 17-0; Matrix column dimension 
Word MAC (1,2): 

Bits 59-57 : Matrix type 

Bits 56-54: Density type 

Bits 53-3b: Maximum data block size 

Bits 35-18: Number of data blocks 


8 /USERC0M/USERC0M (64) 


USERC0M contains an array which is reserved for the 
user. The array is initialized to zero in the main 
overlay. 
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/FILE99/GRAFSy 1 ,GRAFSg2, DIAGFIL, PL^eTTFIL 


100 .. 


100 . 


F1LE99 is used to store the names of the files used by 
the GRAPHICS nodule. 

! - 10 /VIPEK/VLEVEL,G£NJ0B,GENDATE , CENTIME 

VIPER is used no store program version information 

VEEVEL - Version number 

GENJJiJB - Job name creating tliis version 

GEKDATE - Date of generation 

CENTIME - Time of generation 

Ml /1ACTIVE/IACT1VE,^JFILE,M$?DE,EXTL,NPR{^C, 

PKJZrCLIM , PRJ2FCFIL 

lACxTVE is used to store control parameters while 
processing in the interactive control mode. 

lACTlVE - Indicates whether a job is run in 
batch or online mode. Logical 
variable which is true while 
running in online node. 

j^BJFILE - Contains file name of the current 
command procedure . 

MJ?D£ - Contains the run mode for current 
comm^ind procedure (FULL or STEP) . 

EXTL - Logical variable wliich is set true 
when branching from the interactive 
control code to another ATLAS module. 

NPRJ^C - Number of procedures currently in 
execution 

PRiJCLiM - Maximum number of nested procedures 
allowed 


PKjacFlL - Array containing tlie names of procedures 
currently in execution. 
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The ATLAS Control Language constitutes the link between the 
program and the program user for transmitting processing requests 
to the various parts of the ATLAS system. This language is 
applicable to the Control Module only, to monitor the sequence of 
module execution and to pass parameter values. A description of 
the use of the language and the actual parameters which apply for 
the various computational modules is contained in reference 1-1, 
sections 200-258. This section describes the language syntax 
rules and the format for transmitting parameters to the program 
modules . 

200.1 OVEKVIE-W OF ATLAS STATEMENTS 

An ATLAS Control statement has the following general 
format: 

Fxinctional Descriptor (plist) 

The "Functional Descriptor" identifies the blocks of 
code in the ATLAS system that will be executed. In most 
cases this will be one or more program modules. 

However, on occasion it can be code located in the 
Control Module itselr. The "plist" represents the 
parameters passed to tfie code. Below is given a brief 
description of the Functional Descriptors defined for 
the ATLAS language. Terras which are enclosed in < > are 
optional. A term enclosed in { } indicates that several 
possible parameters are available. For a complete 
description see reference 1-1, section 200. 

BEGIN C0NTK0L <MATRIX> PROGRAM 
END C0NTR0L PRJ3GRAM 

These two statements will be the first and last 
statements, respectively, of the part of the Control 
Deck containing ATLAS statements- This block of code 
will be converted into the primary overlay of the 
Control Module. 

PRJ2BLEM ID (text) 

The "text" will appear as heading on all program 
printout. The text is stored in the common block 
/C^PARS/ (sec. 100-2) . 
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CHANGE ID (text) 


The text defined by a PKJJBLEM ID statement may be 
changed by this statement. 

USEK C0MM^ (Variable list) 

This statement will generate the conunc n block /USERCJZW/ 
containing the parameters of the "variable list" (sec. 
100 . . 

EKRJ3R PR(3CEDURL 

This statement defines an entry point in the Control 
Module which will be executed if a fatal error condition 
has occurred. 

READ INPUT (plist) 

Li^AD {type} (plist) 

Both statements will generate code tor branching to the 
preprocessor module. The READ statement is used to 
activate reading of the Problem Deck. The L0AD 
statement will cause the restart capability to be 
executed . 

EXECUTE {module} (plist) 

This statement sets up branching code to one of the 
Technical modules or one of the Utility modules. The 
name of the module is defined by "module". 

PRINT {type) (plist) 

This statement sets up code for breinching to the print 
module. 


SAVE {type) (plist) 

INDEX FILES (plist) 

Both statements will generate code for branching to the 
SAVE module. The SAVE statement will cause the restart 
capability to be executed. The INDEX statement will 
result in a printed report of the random access index 
tables . 
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PERF0KM (procedure) (list) 


This statement causes a block of code identified by the 
name "procedure" to replace the statement itself. The 
replacement code can contain F^TRAN, SNARK or ATLAS 
statements. The statement is nestable to any level. 

The parameter list of tliis statement has a different 
syntax than the "plist" of the statements above, as 
described in reference 1*1, section 200. 

200.2 PARAMETER LIST SYNTAX 

This section describes the syntax rules of the ATLAS 
statement parameter list identified by "plist" in the 
above sec+‘i<^T’. Note that the parameter list of the 
PERF0RM statement does not belong to this category. The 
syntax definition is made in the Backus-Naur form. 

<plist>: ;=<statement> | <complex statement> 

< comp lex statement>: : =<statement> | < statement >, 

<complex statement> 

<statement>: ;-<keyword>j <keyw ord>=< express ion >| 

<matrix express ion> 

<keyword>: : =<alphanumeric literal> 

<expression> : : = <parameter> | <m\iltiparameter> | 

<list expression >|<.matrix expression> 

<.parameter> : : =<alphanvimeric literal> | 

<numeric literal> | F0RTRAN variable> 

<alphanumeric literal> character string other than 

<F(JRTRAN variable>>! 

<n characters preceded by nH>| 
<n characters preceded by nR> | 
<n characters preceded by nL> 

<numeric literal> : : =<real scalar (F or E forma t) > | 

<integer scalar> 

<F0RTRAN variable>: :=<simple or subscripted 

variable name declared in 
common block USERCJ2(M> 

<.multiparameter> : :=<(pi,P 2 ,...,)> 

where p, , 2 : ; =<parameter> 
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<list express! on> :: =<nj T(? n?>|<ni Tj3 rig BY n73> 

where i\i ,ng: : = <numeric literal> 1 
<dlphantuneric string appended 
by nvuneric characters>, and 
n 3 : ;=<numeric literal> 

<matrix expiession> : : =<[ <matrix naxne><operator> 

<F^»RTRAN variable><delimiter> 

<ntuneric literal>]> 

iwo elements of the same type# 
i.e.# <niatrix name>#<operator> 
can not follow each other 
inuned lately in the matrix 
expression. 

<matrix name> ::=< ATLAS User Matrix name> | 

<ATLAS User Matrix name appended by the 
3 -character string (char) > where 
char is any FORTRAN character 

<operator>: := 

<delimiter> : (1)1= Exceptions for ( ) are described 

in the definition of <matrix 
name> above. 

200.3 FORMAT OF PARAMETER LIST IN Ci2(NPARS 

The ATLAS statements which are discussed in this section 
are: READ, L0AD, EXECU1*E, PRINT, PL0T, SAVE, INDEX, 

PURGE and RENAME. All of these statements are decoded 
during the precompilation process and stored in the 
array CpNPARS of the common block of the same name (sec. 
100.2) . In the following, the format of the C^PARS 
array is described. 


i 
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200 -i.1 General Rules 


a. Using the notation of section 200.2 the general 
fornat of an ATLAS statement is 

Functional Descriptor (<statement>i , <.statement >2 . . .) 

The "Functional Descriptor" will always be a two-word 
combination, where "Functional" represents the first 
word and "Descriptor" the second. The general layout in 
CJ3NPARS is: 


L 

Row 

1 Columii 1 1 Column 2 

_1 

1 

1 

1 FUNCTIONAL I 0 

1 

1 

2 

1 DESCRIPTOR 1 0 

1 

1 

3 

1 <statement>i 

1 

1 

4 

1 <statement >2 

1 

L 

- 

1 

_1 


If the word represented by FUNCTIj^NAL cr DESCRIPTJ3R is 
more tlian 10 characters long, only the 10 leftmost 
characters will be stored. 

The <■ .statement > *s are stored in the sequence they appear 
in the ATLAS statement . The storage format depends on 
the type of <statement> and will be described in 
subsequent subsections . 

b. <alphanumeric literal> is stored in the same way as 
FORTRAN variables. Literals with more than 10 
characters will be truncated . 

c. ^numeric literal> is stored as an integer or a real 
number as specified, except in matrix expressions 
where the type will be forced to real. 

d. <matrix name> is stored in H -format 
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200.3.2 <stateinent> : : =<kevv>Drd>=<inultiparainet:er> 


Example: SET=2 


The format in C^WPAKS is: 


1 . 

Row 

_L 

Column 1 

1 

Column 2 1 

1 

1 

i 

1 

SET 

1 

1 

1 

2 1 

1 . 

- 

_L 

— 

i 

-- L 


200.3.3 <statement> : :=<keyword>=<niultiparameter> 
Example : (1,2, 3, 7) 


The format in C^PAHS is; 



Row 

J_ 

Column 1 

I Coliunn 2 

_L 

1 

1 

i 

1 

1 

RVALUE 

1 1 

1 

1 

1 

i+l 

1 

RVALUE 

1 2 

1 

1 

i+2 

1 

RVALUE 

i 3 

1 

1 

i+3 

1 

RVALUE 

1 7 

1 


— 

_L 

— 

1 — 

_L 


200.3.4 <statemeat> : : -<matrix expression> 
Example: [(A+L*B)X=0] 


The format in C^WPARS is: 



Row 

Column 1 

1 Col’icin 

2 

_L 

1 

1 

i 

♦EXP 

1 

1 

6 

\ 

1 

1 

i+1 

( 

1 A 


1 

1 

i^2 

♦ 

• L 


1 

1 


♦ 

1 B 


1 

1 

i-^4 

1 ) 

1 X 


1 

1 

i + 5 

1 - 

1 

0 

1 


— 

1 — 

1 


J. 


A matrix expression is notified in CJ2WPARS by 
setting of a keyword *EXP in the first column 
of the array. The second column of the same 
row will point to the relative row where next 
<statement> is stored. 
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^00.3.5 <statement>; ;=<kevword>=<inatrix expression> 
Example: A=[ -B+C (T) *0-2 . 4*E ] 

The format in C^PARS is: 



ROW 

j_ 

Column 1 

1 Column 

2. 

_L 

1 

1 

i 

1 

I 

♦EXP 

1 

8 

1 

1 

1 

i+1 

1 

A 

1 “ 


1 

1 

i-»2 

1 


1 B 


1 

1 

i*^3 

1 


1 C(T) 


1 

1 

i^4 

1 

♦ 

1 D 


1 

1 

i^4 

1 

- 

i ♦SCALAR 


1 

1 


1 

2.4 

1 * 


1 

1 

i+7 

1 

E 

1 0 

0 

1 


- 

_L 

— 

1 — 


_L 


A numeric value in the expression is notified by 
preceeding it by the keyword ♦SCALAR. 

200.3.6 <statement>: :=<list expression> 

Example: A=2 TJ? 4, B=M3 T0 M9 BY 3 


The format in C^2WPARS xs 



Row 

J_ 

Column 1 

I Column 2 

J. 

1 

1 

i 

1 

1 

A 

1 2 

1 

1 

1 

i+ 1 

1 

T0 

1 4 

1 

1 

i+2 

1 

B 

1 M3 

1 

1 

i+3 

1 

T0 

1 M9 

1 

1 

i+4 

1 

BY 

1 3 

1 


- 

_L 

— 

1 — 
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300. ATLAS PRCXiRAMMING METHODS 


This section describes the various ATLAS requirements to be 
satistied when: 

a. adding a new processor to the system, or 

b. modifying existing code 

300.1 ADDING A PROCESSOR 

If the addition of the ABCDEFG Processor to the ATLAS 
system is hypothesized, the following steps must be 
taken: 

a. System tapes and files, section 501, and catalogued 
procedures, section 503, must be modified to 
reflect the existence of files ABCDg LD, ABCD REL, 
and ABCD0 LF. 

b. The ATLAS precompiler must be changed to accept the 
EXECUTE ABCDEFG statement. The strings MNAMES and 
FNAMES in subroutine INITIAL must be modified to 
contain the names ABCD and ABCDRNF, respectively. 

c. The system common block /K^RNDM/ must be updated to 
reflect the presence of ABCDR NF . 

d. The dummy deck DU MABCD must be added to the DUMMJ2ILD 
library. This deck will serve as the structural 
skeleton of the module, as described in section 
502.3. Technical module primary overlays will be 
given as glVERLAY (ABCD0 LF ,1,0) - Secondary overlay 
numbers are assigned by the programmer. 

e. TfiC source library file ABCD0 LD should be produced 
in an UPDATE creation run. Each subroutine must be 
fully contained in a deck of the same name. The 
organization of the 0LDPL is given in section 
502.1. CJJMDECKS for the system common blocks, and 
decks for routines N0B^J3JM and NJ3FJJRTN, should be 
formed. 

In addition to the above specific steps, the new code 
must adhere to the general ATLAS guidelines of section 
300.2 pertaining to documentation, coding practices, 
etc . 
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PKOGi<;i^'J^lING GUIDELINES 


ATLAS guidelines ure presented here for coding 
practices, error handling, updating, and documentation. 

300.2.1 Coding Practices 

No effort is niade here to teach good programming 
technique, but certain practi ces have proven to be most 
effective in the ATLAS system. 

a. SNAkK usage: The greatest benefits from SNARK 

usage lie in its natrix 1/0 and core management 
functions. The most common structure for an ATLAS 
module is a FORTRAN primary overlay, driving SNARK 
secondary overlays, which in turn drive the working 
routines, again usually in F^TRAN. Because SNARK 
statements tend to generate inefficient code, 
effort should be made to avoid excessive use of 
SNARK language statements, .‘^uch as SETELEM or SNARK 
CALL, to QO the real work of the modxile. In 
particular, SNARK stateiiients in D0 loops should be 
eliminated . 

b. File manipulation: Random access files for SNARK 

matrix 1/0 should be opened using routine FILEADD 
(sec. yoO) . F0RTRAN 1/0 flies should be opened 
with FETEDIT. Any scratcli tiles other than the 
system scratch files should be dropped at the end 
of tijeir usefulness using tlie system routine 
DR0PFIL. 

c. Coding: Do not inclvide any 0VERLAY Cards in the 

code. This will be taken care of by the mimmy 
aeck. 

Use standard ATLAS C0MDECKS for any system common 
blocks , 

Comments should thoroughly describe the executable 
code, Variw.oles in calling seuuences and coimion 
blocks must be identified- 

Do not use CALL EXIT, CALL FLUSH, or ST0P 
statements . 
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i00,2.2 Error handling 


ATLAS attempts to trap all possible errors, and to 
provide a itieanxnyful message to the user when one 
occurs. The following methods ^ directed to that end, 

a. Common block /KEKK^R/: Variable KERRpR is the 

count of fatal errors, KKRRpJRS (or KWARN) , the 
count, of non-fatal errors. They should be 
incremented each time an error of the appropriate 
type is encovmtered eind a message written, 
containing the wore **error” for fatal errors, 
’•warning” tor non-fatal errors. In preprocessors, 
fatal errors should not Iialt execution. In 
j-ostprocessors, warnings only should be issued, and 
processing allowed to continue in the program. Tne 
reasoning behind these conventions is that by 
completing all preprocessing, more errors per run 
can be detected and corrected, while post 
processing errors do not necessaiily mean an 
execution is without usefulness, and should not end 
it. 

b. SNARK errors: Use the SNARK SETERR cesnmand to trap 

matrix errors. It is also often useful to use the 
INVENTJSRY capability of SNARK. 

System mode errors as the result of bad data or 
incorrect parameters should be avoided through the use 
of checks within the code. 

300.2.3 UPDATE procedures 

ATLAS system integrity is maintained via the UPDATE 
progicuu. It is essential that consistent practices be 
used in this process. 

a. Whenever making a system update, comments should be 
included in the update giving author, date, and 
purpose, and similar comments should go into the 
routines being updated . 

b. When adding decks or C0MDECKS, *ADDFILE should be 
used. Ihey should be inserted alphabetically per 
section 502.1. Deck names should match the name of 
the routine being added. 
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c. Ccirds submitted tor system updates must have been 
run )-reviously in checkout. Each deck of UPDATE 
directives submitted must be headed by the 
following two cards: 

♦IDEdT XXyXriTUi 

♦CJ^JMPILE 

where XXXX are the first 4 characters of the module 
nuHie, and nnn is the number ot the current system 
ujxiate. Any adding or purging cf decks must follow 
the correction set, if any, and should he 
accompanied by appropriate updates to the Dummy 
J^LDPL, headed by: 

♦IDEKT DXXXXnn 


300.2.4 Documei itat i on 

ATLAS documeiitatioii is intended to clarity code, 
facilitate program usage, and describe code and theory 
developments. Each ATLAS programming task includes both 
code and documentation. 

a. Source code comments: These comments have the 

basic purpose of making the code easier to read. 

In addition, eacn urtxjram or routi.ie should have a 
set of comments giving purpose, ' > date, 
update cind checkout history, file ...ag., and a 
description ot variables in comiion blocks and 
calling sequences. 

D. AILAS documents: In cart, these consist of the 

present document, the Users >:anual, reference 1 - 1 , 
an<i the File- Cataloq, reference 1-2. 

c. Chec/. 'ic (.ocumentation : This documentation occurs 

in *iie form of conenents in the checkout decks, and 
as described in section 5C4. 
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400. 


DATA MANAG£MENT 


This section describes data management of the program 
coninunication files, which constitute the data base for all ATLAS 
- information. Since scratch files are defined by each program 

j module according to need and then released be£o»'o another module 

is entered, the data management of these files is left up to each 
module. 

On the communication files, there exist three categories o 
information here described as table matrices, element or nodal 
matrices, and gross matrices. 

a. The table matrices contain various types of reference 

data: coordinate tables, nodal correspondence tables, 

finite element tables, etc. They are of such limited 
size tiiat they can be fully contained in the core 
memory. In order to keep core requirements to a 
minimiuu, the tables are designed in a compact format by 
packing information in each 60 bit word. This approach 
is based on the assumption that it is less expensive to 
unpack information than to execute on a larger field 
length. 

b. Element or nodal matrices contain properties relevant to 
each structural element or node, i.e., finite element 
stiffness and mass matrices, nodal loads matrices, etc. 
These iiatrices normally require a subdivision into 
several logical records on disk. The core memory will 
only be able to contain one or a few records at a time. 
Word packing is used to a limited extent to store 
various control information related to each element or 
nodal macrix. 

c. Gross matrices contain properties which relate to a 
complete analysis model, i.e., assembled stiffness, mass 
or loads matrices . The matrices can generally be very 
large and therefore, have to be subdivided into numerous 
logical records in order to be processed in core. Very 
little control information is required for these 
matrices: consequently, word packing is not used. 

' 400.1 MATRIX NAMING 

Each natrix on the data communication files is 
identified by a name which is either predetermined in 
^ the program code, or defined by the user at execution 

time. Generally all table matrices and the element and 
^ '' nodal matrices will have fixed names, whereas most gross 

matrices will have user defined names. Because of the 
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Uisei *s involvement in tJieir nt*niinq, tlie gross matrices 
are called user matrices. The random index ncunes 
associateri with data records tor tixed irame matrices or 
user matrices are tormed with the matrix name as a 
basis, as ciesciibed in the following two subsections. 

4 0 U . 1 . 1 F ixe g Name Coii v ontions 

The random indt^x name tor a fixed name matrix contains 
from 1 to 7 characters which are left adjusted in the 
word, followed by zero bits. In general the index name 
is conposed ot three fields A, B and C with contents as 
dt scribed below. The length ot each may vary from one 
nUitrix to another. Unused part-s of a field are zero 
filled. 


I A I B I C I 00 0 J_ 

I 7 char I I 


A - The matrix name consisting of an alphanumeric 
string starting with a letter. For the file 
BATARNF the first letter is associated witlr the 
Preprocessor subim'xlule tliat cienerates the matrix, 
as descrioed in table 600-1. For all other tiles, 
there are no restrictions as to choice of ma rix 
name . 

B - This field IS usea to distinguish between separate 
logical records of the Sdiue matrix. It contains 
the disj. lay code representation of the record 
number. This field is omitted if the matrix always 
consists ot one logica’ record. 

C - Bacli character ot this field is used to index the 
matrix witn respect to a certain condition; for 
instance, the data set numl)er, the stage number, 
the Mach number, etc. With a display code 
representatioii ot eacli condition (numbers and 
letters only are permitted) , a maximum ot 44 
conditions may be acconuaodated . 


400. 1.2 U*=:er Name Conventions 


The random index name tor a user matrix consists of nine 
left adjusted cliaracters followed by six zero bits. Tlie 
name is composed ot two fields A and B with contents as 
described below. Unused parts ot a field are tilled 
with zero bits. 


400.2 




i » . 



J A I B L. P 1 

I 7 char. | 2 | 

A - The user defined matrix name consisting of from 1 
to 7 alphanumeric characters . 

B - This field is used to distinguish between separate 
logical records of the same matrix. It contains 
the binary representation of the record number. 

400.2 MATKi;^ ACCESSING 

Reading and writing of matrix records on the data 
communication files are performed by the SNARK 
statements RDMATRB and WTMATRB, reference 10-1. Before 
the actual transfer can be made the proper record index 
name and file name have to be identified. Depending 
upon the type of matrix to be accessed, i.e., fixed name 
or user matrix, the following approact^es are used: 

a. In the case of a fixed name matrix the name of the 

communication tile must be known at programming 
time. The sub-fields A, B and C of the random 
access index are determined as follows: Field A 

must be defined at programming time. Field C is 
set by masking in the actual conditions that apply 
tor the particular case. Field B is updated 
sequentially for each matrix record being 
transferred using the ATLAS library routine INCR. 
Existence of a particular record should be tested 
with the library routine IFRREC. 

b. User matrix names are managed via an index catalog 

which is maintained on the tile SYSRNF. The 
catalog consists of two parts: the matrix name 

catalog MAN, and the matrix parameter catalog MAC. 
At any point during processing, the matrix name 
catalog will contain one entry for each user matrix 
defined with the contents: 

1. User matrix name 

2. Pointer to associated entry in the parameter 
catalog 

The parameter catalog contains: 

1. File name where matrix is stored. 


2 . 


Matrix row dimension 


3. Matrix column dimension. 

4. Matrix type indxcator specifying that the 
matrix is stored according to one of four 
possible formats - rectangular, symmetric, 
diagonal or null matrix format. 

5. Maximum record size used. 

6. Number of records used. 

Access to the two catalogs is performed by the 
ATLAS library routines GMISRT and GMLKUP (sec. 900) 
via the common block MATTAB (sec. 100) . 

Fields A and B of the random index name are 
determined as follows: Field A is supplied as 

input frcxn the ATLAS statement for the appropriate 
program module. Field B is updated sequentially 
tor each matiix record being transferred using the 
ATLAS library routine INCRB . 

400.3 SNARK MATRIX STORAGL FORMAT 

All tables and matrices on the ATLAS communication files 
are stored according to the SNT^K matrix format. In 
this torraat each logical record has the following 
structure: 


SNARK Header Information 


Matrix Body 


Checksum Word 


The characteristics of each of these record components 
are described in the subsequent subsections. 

400.3.1 SNARK header Information 


The SNARK header information, as shown in table 400-1, 
is stored and retrieved by SNARK statements 
DLFID,EXTID,EXTAUX, and ST0AUX (ref. 10-1) . 
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Table 400-1 


SNAf<K Matrix Header Information 


Word I Contents 


1 I Contains MATRIX 1 in H-format 

I 

2 I SNAKK matrix type indicator (H-format) which 
I is one of the following: 

I REAL - Matrix body contains floating point 
I nvmibers only. Zero elements will not 

I be stored on disk. 

I MIXED - Matrix body contains floating point, 
I integer and/or alphanumeric 

I information. Zero words will be 

I transferred to disk. 

I DIAGJJNAL - Matrix body contains a diagonal 
I matrix stored as a vector. 

I NOLL - Matrix body contains zero elements 
I only. No matrix elements are stored 

I on disk. 


3 I Submatrix row dimension (=m) 

I 

4 I Submatrix column dimension (=n) 

I Note that the product m*n should be equal 
I to the length of the mtrix body, m and n 
I will therefore often not be the true dimension 
I of the matrix. 


5 


Pointer to word 6+k 


o 

5+k 


6 + k 
15+k 


16+k 


Matrix name, with the first word being the 
date of the matrix generation (k words total) 
Note that matrix name is not the same, or 
associated with, the matrix index name (see 
ref. 10-1) . 

Ten words containing the user*s auxiliary ID. 
In ATLAS the first two words of the ID are 
reserved for the followxng information: 

1D1 - Contains the communication file name 
1D2 - Contains the matrix index name 
This information is generated and used by the 
checkpoint/restart capability. 

Not used 


26+k 
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The SNARK matrix type specitied in word 2 of the header 
is used by the I/^ routines to determine whether or not 
^ the contents of the matxix body can be compressed when 

transferred to disk, or expanded when transferred to 
^ core storage. It has no relation to the matrix types 

defined for user matrices in section 400.2, which will 
be further described in the following section. 

400.3.2 Matrix Body 

The taxed name matrices do not have a coiranon storage 
format for the matrix body. Reference 1-2 should be 
consulted in each particular case to explain the 
contents . 

The type of user matrix, as identified in the user 
matrix catalog, reflects a special format of the SNARK 
matrix body. These formats for rectangular, symmetric, 
diagonal and null matrices are described below. 


a. Rectangular Matrix 



Xj-Xn; The elements of a row of a matrix. 

Kows are stored consecutively, each 
row being contained completely 
within a data record. 

b. Symmetric Matrix 



1: Row number in matrix 


J: Column number of first non zero matrix 

element in row I 

Xj-Xd: Fxrst non zero element in row I through 

the diagonal matrix element, hows are 
stored consecutively, each row up to and 
including the diagonal element being 
completely contained within a data record. 
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c. Diagonal matrix 

The diagonal matrix elemem-S are stored 
vector . 

d. Null Matrix 

Each null matrix must be represented by one data 
record in order to be recognized by the 
chec)cpoint /restart facility. The contents of the 
matrix body are not interrogated. 

3 Checksum Word 


The checksum word is set and interrogated by the 
SNAKK 1/^ routines to check the integrity of the 
aata transfer. The word contains the logical sum 
of the complete matrix record, except word 6 (the 
date) of the SNARK header. The checksum is 
computed by the bCS library routine LCKSUM. 
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ATLAS SYSTEM OPERATION 


The ATLAS system is maintained on both tape and disk. The 
following sections discuss the methods used to ensure system 
integrity, to standardize checkout procedures, and to gain access 
to either ATLAS system. 
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501. 


ATLAS SYSTEM FILES 


The ATLAS 4.0 system is kept on two magnetic tapes, the 
relocatable tape and the absolute tape, and two sets of permanent 
files . 

501.1 RELOCATABLE TAPE 

The relocatable tape contains all of the files necessary 
for ATLAS code development (see sec. 502) : the UPDATE 

program library (J3LDPL) , relocatable files, and dummy 
routines for each processor, all system library 
routines, and the precompilers (for tape structure, see 
sec. 505.1) . 

501.2 ABSOLUTE TAPE 

The absolute tape contains all of the files necessary 
for an ATLAS execution: the absolute code for each 
processor, the system libraries, and the precompilers 
(for tape structure see sec. 505.2) . 

501.3 ATLAS PERMANENT FILES 

One set of ATLAS permanent tiles is a developmental 
version of the code from the latest absolute tape. The 
tiles are generally replaced after every update to the 
system but are subject to change and do not always 
reflect a single absolute tape. The other set of 
permanent files is from the released absolute tape and 
is intended for production use. 
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ATLAS SYSTEM MAINTENANCE 


Moditication ot the ATLAS code is based on the tiles on the 
relocatable tafe, which contains an UPDATE program library 
((4LDPL) , the relocatable decks in load order, and a dummy deck 
tor each module. 

502.1 JZPLDPL 

The UPDATE 0LDPL contains a source code deck for each 
routine eind C^WDECKs for most of the c> .Tunon blocks in 
the processor. The deck names coincide with the names 
of the subroutines and the coitinon blocks. Only one 
source deck is used for each routine, despite multiple 
uses of the routine in the processor. OVERLAY cards are 
not needed on programs since the d\utu%* routines supply 
all such cards. 

The decks in the jaLDPL are ordered alphabetically in 
three groups: CJZ^ECKs, SNARK decks, and FORTRAN 

routines. Two special decks, N0B00JM, which follows the 
SNARK decks and N0F0RTN, vdiich follows the FORTRAN 
decks, are written to the CJ2WPILE file each time a 
module is updated. N0B00JM contains a dummy SNARK 
program and a *CWE0R 15 card, which writes an end-of- 
file nerk on the Q2tMPILE record. NJZ)F(3RTN is a dummy 
F^TRAN routin'^. This procedure results in the CJ2MPILE 
file always having two files, one of SNARK routines, one 
of FORTRAN routines. 

502.2 REL(X:ATABLE FILES 

Each relocatable file contains all of the J2IVERLAY cards 
and relocatable code necessary to load a module 
(excluding code from the libraries) . Thus, if a routine 
appears in two overlays of a processor, it appears twice 
in the relocatables . 

502.3 DUMMY ROUTINES 

Each module has a set ot dummy routines associated with 
it consisting only of (2^^ERLAY, PR^RAM, SUBROUTINE, and 
END cards. This deck determines the overlay and 
stibroutine structure of the module code. It is used in 
conjunctxon with the C0PYLL utility to build the 
relocatable file for the module. 
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MAINTENANCE PROCEDURE 


Changes to an ATLAS processor code are made with 
upaatfcs. A system update, involving several processors, 
writes a new relocatable tape, loads the entire system 
-- and writes a new absolute tape. 

Each system update is numbered sequentially (UDO 1 , 

UD02, . . .) ♦ This number is reilected in the UPDATE IDENT 
cards. Dummy UPDATE IDENTS are prefixed by a D. The 
name pox Lion of the UPDATE IDENT is taken from the name 
of the module, as are tlie names of the 0LDPL, 
relocatable and absolute files. 

For processor XXXXaaaa: 

Update library file 
Relocatable file 
Absolute file 
Update to code, system 
update nn 

Update to diiinniies, system 
update nn 

502.5 ATLAS AND DUMMY 

The (ATLAS, 0,0) overlay of ATIAS is referred to as the 
real ATLAS. The relocatable tile for this overlay is 
ATLASK and its source code is in AL1B0LD. A special 
procedure is used when loading ATLASR to insure that all 
CDC Record Manager routines needed throughout the ATLAS 
system are loaded in the (ATLAS, 0,0) overlay. The 
resulting full load map is then scanned by a program 
called AUT0DUM which generates compass source code. 

This source code is compiled and forms DUMMYR. When 
DUMMYR is loaded to form the (DUMMY, 0,0) overlay, the 
resulting absolutes duplicate the (ATLAS, 0,0) overlay 
with identical common blocks, routines, and entry 
points. This enables overlays loaded with DUMMYR to 
execute with tlie (ATLAS, 0,0) min overlay which was 
loaded previously. All ATLAS primary and secondary 
overlays including the C0NTR)JL overlay are loaded with 
DUMMYR. Whenever an update is made to any routine which 
is loaded in the 0,0 overlay, DUMMYR must be remade to 
reflect changes in routine lengths and entry points. 


XXXX{2rLD 

XXXXREL 

XXXXJ^ILF 

♦IDENT XXXXnn - 
♦IDENT DXXXXnn - 


( 
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VtKSlON IDENTIFICATION 


Inlorniation identityiiig the version of ATLAS being 
executed is stored in the VIPER coinmon block (sec. 
1U0.2.1U). Ttie routine VERS1J2N in VLI3 sets up the 
values in VIPER. VLIB is loaded with the control 
program. Each time the ATLAS system is loaded using the 
L0ADKEL procedure on CATM (sec. 503.2.8), the program 
TRACE generates source code for VERS1J2W. This source 
code is compiled and the VLIB library is made from the 
resulting relocatables of VERSIJltfN. 
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CATALOGUED PROCEDURES 


Control card procedures are used with Uie CAIL utility to 
siniplity the running oi a job. The ATLAS procedures are on file 
CAIW, and are used tor ATLAS program executions, and maintenance 
and checkout rrns. Input and output refer to files required or 
produced by the procedure. Reserved names are those tiles or 
registers which will be modified in the procedure. 

503.1 RUN PROCEDURES 

ATJ2»DISK, ATTACH, CJ2NTR0L, DR0PRNF, FILES, K0NTR0L, SHJZfRT 

503.1.1 AT0DISK 

PURPOSE - AT^3DISK copies the absolute tape onto separate 
disk tiles, 

USAGE - C/JX(CATM,ATJ«>ISK) 

INPUT - ATLASMT, the ATLAS absolute tape. 

OUTPUT - All files named in section 505.2 except CATM. 
RESERVED NAMES - None 

503.1.2 ATTACH 

PURPOSE - ATTACH gets the permanent file version of 
ATLAS. 

USAGE - CALL (CATM, ATTACH) 

INPUT - None 

OUTPUT - The ATLAS permanent files 
RESERVED NAtlES - None 

503.1.3 C 0NTR0L 

PURPOSE - C0NTR0L compiles and loads an ATLa.£ control 
program containing no SNARK statements. 

USAGE - CALL (CATM,C(3NTR(?L) or 

CALL (CAlM,CpNTRiaL ( JIvIPUT=inf ile, 
tJUTPUT=outf ile) ) 

INPUT - A file containing the user's ATLAS control 
program. Default is INPUT. 



OOTPUT 


-a. Overlay fij.e CJMJTRjZn^j containing the 
absolutes of the control program, 
b. A file containing the listings from the 
compiling and loading. Defaul*- is 
OUTPUT. 


RESERVED NAMES - OREL, PEL, QX8, QX13, QX18, FO, FI, 

F.1, F3, F4 


503.1.4 

DR0PKNF 



PURPOSE 

- DR0PRNF returns tne data communication files 
to facilitate multiple ATLAS runs in one job 


USAGE 

- CALL(CATM,DR{3PRNF) 


INPUl 

- None 


OU'iPUT 

- None 


RESERVED 

NAMES - None 

503.1.5 

FILES 



PURPOSE 

- FILES gets the development version of ATLAS 
from permanent file. 


USAGE 

- CALL (CATM, FILES) 


INPUT 

- None 


OUTPUT 

- The ATLAS development version permanent file; 


RESERVED 

NAMES - None 

503. 1.6 

KfJNTRJJL 



PURPOSE 

- KPNTRJifL compiles and loads an ATLAS coi. trol 
program containing SNARK statements . 


USAGE 

- CALL(CAThi,K{2fNTR0L) or 

CALL ( CATM, KJ?NTR{2(L (lNPUT=inf ile , 
jZfUTPUT= cut file) ) 


INPUT 

- A file containing tJie users ATLAS control 
program. Default is INPUT. 


OUTPUT 

-a. Overlay file CJ3NIR)i^L containing the 

absolutes of tfic control program. 
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b 


A file cx>nt:ainin<j the listings from the 
compiling and loading. Default is 
JJUTPUT. 




f 

I 




RESERVED NAMES - CREL,REL,gX8,QX13, 

gXl8,F0,F1,F2,F3,F4,F5 


503.1.7 SHORT 

PURPOSE - SHORT gets a short portion of the permanent 
file version of ATLAS 

USAGE - CALL (CATM, SHORT) 

INPUT - N^ne 

OUTPUT - The ATLAS permanent files tor control 
programs, input, output, and print - 

RESERVED NAMES - None 

503.2 MAINTENANCE PROCEDURES 

ATOFILE, ATY^APE, DROPABS, DROPREL, DUMUDT, FICHE, 
LIBRARY, LOADREL, REWABS, REWREL, RTODISK, RTOFILE, 
RTOLGO, RTOTAPE, UPDATE, PRECUP, FULLUP 

5. 3. 2.1 AT0FILE 


PURPOSE - ATOFILE copies the absolute tape files to one 
file, ATLASMT. 

USAGE - CALL(CATM,ATOFILE) 

INPUT - ATLAS absolute files (sec. 505.2) 

OUTPUT - ATLASMT 


RESERVED NAMES - None 
503.2.2 AT.3TA PE 

PURPOSE - ATOTAPE copies the absolute fi_es to tape. 
USAGE - CALL(CATM,AT>’rAPE) 

INPUT - ATIAS absolute files (sec. 505.2) 

OUTPUT - Fxle MT on tape and a catalog of MT on jZHJTPUT 
RESERVED NAT4F25 - None 


503 . 3 







S0J.*;.3 L> K13I‘A U. 

PURPoSK - UKt31'AB:> rotuins all ot the ATLAS absolute 
tllOiJ . 

llSA(.;t; - CALL(CATM,UK0PAiiS) 

INPUT - None 
OUTPUT - None 
KLSEKVt.U NAMLS - None 
S03.J.4 UKi^PKhL 

PUKPc'Sh, - UKi^PKyi it'tuxns all ol the tiles trcMU the 
iel<.)catable t*ipe except CAIT^I 

UTAOl - OAbL (CATM,DKJ2?PK1X) 

INPUT - None 

OUTPUT - None 

KI.SLKVI-;D names - None 

LHIMUL'T 

rUKPOSt - UUMUUT is usetl to U[.xlate the duminv' decks. 

LUAOL - CALL(0A‘I>:,DMMUPT(R1:;L^XXXXKEL, 

INPUr-int ile,j3UTPUT-outt ile) ) where XXXX are 
the tirst toiu letters ot the module name. 

INPUT - Update corretTtion set. IVfault tile - INPUT. 

OUTPUT - a. Updated DUMM0LD and telocatable file and 
h. Listiiui ot the chanued dummy dt'ck on 
••outtile**. Ue tail It tile OUTPUT) . 

KESEKVEU NATIES - (3LDPL, COMPILE, 0|JR , (3UT, NEW, R1 

S03..:.o El CHE 

PURPOSE - FlCliE writi's the (OUTPUT trie to tape tor later 
use as microtiche input. 

U SACK - CAI ( C ATM , E 1 Qi E ) 

INPUT - i^UTPUT tile 
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OUTPUT - File FT on tape 
KEUERVED NAMES - FO 

503.2.7 LIBRARY 

PURPOSE - LIBRARY prodix:es ATLASL from ALIBREL and 

SNKLREL, CLIB trom CLIBREL, ILIB from ILIBREL, . 

and SNKLIB from SNKLREL. I 

USAGE - CALL (CATM, LIBRARY) | 

I , 

INPUT - ALIBREL, CLIBREL, SNKLREL, ILIBREL j 

I 

OUTPUT - ATLASL, CLIB, ILIB, SNKLIB ; 

RESERVED NAMES - LIB ; ' 

503.2.8 L0ADREL 

PURPOSE - L0ADREL is used to load the ATLAS relocatables 
during an update. 

USAGE - CALL (CATM, L0ADREL) 

INPUT - ATLAS relocatables on LG0 and ATLASL 
OUTPUT - ATLAS absolute files 
RESERVED NAMES - None 

503.2.9 REW^S 

PURPOSE - REWABS rewinds the tiles from the absolute 
tape . 

USAGE - CALL (CATM, REWABS) 

INPUT - ATLAS absolute files 

OUTPUT - None 

RESERVED NAMES - None 

503.2.10 REWREL 

PURPOSE - REWREL rewinds the files from the relocatable 
tape . 

USAGE - CALL (CATM, REWREL) 

i 


I 


503,5 







INI’UT - All files from tlie relocatable tape 
OUTPUT - None 
KESERVED NAMES - None 

503.2.11 RT0DISK 

PURPOSE - K’l^ISK copies the relocatable tape onto 
sep«arate tiles. 

USAGE - CALL(CATM,RT0DISK) 

INPUT - ATLASKT, the multi-file file from tape. 

OUTPUT - All files in section 505.1 except CATM. 
RESERVED NAMES - None 

503.2.12 KT0FILE 

PURPOSE - RT0FILE copies all of the relocatable tape 
files to one file, ATLASRT. 

USAGE - CALL ( CATM, RT0FILE) 

INPUT - ATLAS relocatable tape tiles. 

OUTPUT - ATLASRT 

RESERVED NAMES - None 

503.2.13 K 'mLGi^ 

PURPOSE - RTfSLGO copies all of the relocatable files to 
LG0I in preparation for loading. 

US.AGE - CALL (CATM, RT0LG0) 

INPUT - ATLAS relocatable tiles 

OUTPUT - LGp 

RESERVED NAMES - None 

503.2.14 R TgTA PE 

PURPOSE - RTVTAPE copies tlie relocatable tape tiles to 
taj e . 

USApE - CALL ( CATM, RTJJI-APE) 
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INPUT - The ATLAS relocatable files 

OUTPUT - File RT on tape and a catalog of RT on 0UTPUT 
RESERVED NAMES - ATLASKT 
50i.2.15 UPDATE 

PURPOSE - UPDATE is used to update the module 0[LDPL*s 
and relocatables. 

USAGE - CALL ( CATM, UPDATE (UDL^XXXXPJLD, 

REL^^XXXXREL , INPUT^inf ile , J^TUTPUT=outf ile) ) 
where XXXX are tJ»e first four letters of the 
module name. 

INPUT - UPDATE correction set. Default file - INPUT. 

OUTPUT - a. Updated 0LDPL and relocatable files. 

b. Listings on file "outtile'* (default- 
j^UTPUT) 

RESERVED NAMES - J3LDPL, C^3MPILE, SNARKF, gX8, QX13, 

VX18, Cfm, ffLD, NEW, R1 

503.2. 1b PRECUP 

PURPOSE - PRECUP is used to update a precompiler's 
{iJLDPL, relocatables , and absolutes 

USATE - CALL (CATM, PRECUP, N (UDL=XXX0LD, 

KEL=XXXREL , ABS = absf il e , 

INPUT- inf ile,13UTPUT-outfile) ) 

where XXX are the 3 characters identifying the 
precompiler . 

INPUT - Update correction set. Default file-INPUT 

OUTPUT - a. Updated 0LDPL and relocatable and 
absolute files 

b. Listings on "out tile" - OUTPUT 

RESEJiVE.D NAMES - J^LDPL , COMPILE , MACF , 

0X8,0X13,0X18, DMJZD , BNEW 


503.2.17 F ULLUP 

PURPOSE - FULLUP is used to make a full update of a 
module's j^LDPL and relocatables to get a 
complete program listing 
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USAGE - CALL(CATM,FULLUP,N (UDL=XXXX^3LD, 

KEL=XXXXR£L, INPUT-inf ile^ J2UTPUT=outf ile) 

where XXXX are the first tour letters of the 
module name 


INPUT - UPDATE correction set. Default file=INI-UT 


OUTPUT - a. Updated 0LDPL and relocatable files 
b. Listing on tile “outfile” (default- 
{-JUTPUT) 


RESERVED NAMES - j^LDPL,CpJMPILE,SNARKF , 

OX8,0X13,CX18,C^R,0LD,NEW,R1 


503.3 CHECKOUT PROCEDURES 

CHEK0UT, CHEKRUN, COMMENT, DATAUP, DT(?DISK, DT0TAPE 


503.3.1 CH£KWnJT‘ 

PURPOSE - CHEK0UT is used to write the ATLAS checkout 
decks to file CHEKPUT. 

USAGE - CALL (CATM,CHEKPUT(INPUT= infile, 
pUlPUT=outf ile) ) 

INPUT - File of UPDATE directives. Default -INPUT 

OUTPUl - a. The checkout decks requested on file 
CHEKpUT 

b. Listings on "outfile" (default - PUTPUT) 
RESERVED NAMES - None 
503. 3. CHEKRUN 

PURPOSE - CHEKRUN is used to run the checkout decks 

USAGE = CALL { C-ATM, CHEKRUN (G=n, INPUT= inf ile, 

pUTPUT-outfile) ) where n is the number of 
decks to be run. 

INPUT - File of ut^xlate directives. Default - INPUT 

OUTPUT - Listings of n ATLAS executions on "outfile" 
(defauit-pUTPUT) 

RESERVED NAMES - All data files, FO, FI, F2, F3, F*» , 

F5, 0X8, 0X13, 0X18, CREL, REL, 
CpNTRPL, R1 
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503.3.3 

COMMENT 



PURPOSE 

- COMMENT is used to write the ATLAS checkout 
form xn the dayfile. 


USAGE 

- CALL(CA'IM,CJ3MMENT) 


INPUT 

- None 


RESERVED 

NAMES - None 

503.3.4 

DATAUP 



PURPOSE 

- DATAUP is used to perform updates to the ATLAS 
checkout decks. 


USAGE 

- CALL (CATM , DATAUP ( INPUT=int ile , 
(2rtJTPUT=outf ile) ) 


INPUT 

- UPDATE correction set- Default - INPUT. 


OUTPUT 

- a. Updated (Z^LDPL (CHEK0LD) . 

b. Modified decks written to CHEKpUT. 

c. Listings on "outfile". (default - 
(3UTPUT) 


RESERVED 

NAMES - NEWPL 

503. 3. S 

DT0FDISK 



PURPOSE 

- DTJ3DISK copies CHEK0LD from tape file IT. 


USAGE 

- CALL ( CATM, DTODISK) 


INPUT 

- File IT on tape . 


OUTPUT 

- CHEKJ3LD 


RESERVED 

NAMES - II 
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S03.3.6 myri'APL 


PURPOSE - DTVJTAPE copies CATM and CHEK^D to tape file 
j?T- 

U SAGE - CALL ( CATM , DT^3TAPE ) 

INPUT - CATW, CHEK0LD 

OUTPUT - Tape tile j3T and a catalog of JW on ^FUTPUT. 
RESERVED NAMES - J?T 
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504. ATLAS CHECKOUT DECKS 


ATLAS checkout decks are maintained on tape in an UPDATE 
ffLDfL format. The decks are maintained and run using 
procedures on file CATM (sec. 503.3) . 

The checkout riins conform to the following requirements: 

a. data tape or file manipulations are not allowed; 

b. each deck is executable as a standard ATLAS job; 

c. matrix checksums are printed. 

They are set up as follows: 

$DECK XXXXnn (or ^XXXXnn) 

BEGIN C)2fNTR)JL MATRIX PR)2rGRAM XXXXNN (or YXXXXNN) 
PR(2TBLEM ID 
C 
C 
C 

C comments describing deck 

C 

C 

CALL REQFL (field length) 
checkout control program 


$WE)ZIR 

ATLAS checkout data (if required) 

$W£^ 

Each deck name is the same cis the control program name and is 
constructed fron, the module name and the deck number, e.g., 
MASSOl. If the deck tests any of the following 
classifications , the prefix Y of the above example is 
replaced with tie appropriate letter. 

Preprocessor - I 

Postprocessor - ^ 

Plot ' P 

Library routine - L 

Cj^MDECKs should start with a C, e.g,, CST1F03. 

Every control program must be a SN.AKK program. 

The PR^JBLEM ID briefly describes tJie checkout deck. 
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Comments fully describing the purpose of the checkout deck 
follow the PKJJBLEM ID statement. These comments supply the 
lol lowing information; 

C 

C Module 

C 

C Purpose 

C 

C Author 

C 

C Run History 

C 

C Updates 

C 

C Run Cost - CRUs, CP Time 

C 

C Core 

C 

C References 

C 

C Method - include description of any checko\it switches 

C 

C Routines Checked 

C 

C 

The call to REQFL requests the xield length needed for 
execution. This call allows the economical running of the 
deck without exact knowledge of the core requirements. 

The control program is terminated by a SWE^R card. Any 
checkout data present is terminated with a second $WE^. 



505. TAPE STRU CTO RE 
505.1 RELOCATABLE TAPE 


File 

Name 

Contents 

1 

CATM 

ATLAS control card procedvires 
with random access table 

1 

CATN 

ATLAS control card procedures 
without raiidoni access table 

3 

DUMM0LD 

Dunmy deck. j3LDPL 

4 

ACIJ3LD 

ACI J2LDPL 

5 

ACIREL 

ACI relocatables 

6 

ACl 

ATLAS Catalog Interpreter 

7 


ACI statentent file 

b 

M'CjaLD 

ATLASPC 0LDPL 

9 

APCREL 

ATIASPC relocatables 

10 

ATLASPC 

ATLAS precompiler 

11 

MACj^LD 

MAC 0LDPL 

12 

MACREL 

MAC relocatables 

13 

MAC 

MAC precoirpiler 

14 

MACLIB 

MAC library 

15 

SNKJ2TLD 

SNARK (3LDFL 

16 

SNKREL 

SNARK relocatables 

17 

SNARK 

SNARK precompiler 

18 

b’NKLpLD 

SNARK library 0LDPL 

19 

SNKLREL 

SNARK library relocatables 

20 

SNKLIB 

SNARK library 

21 

TRAC^JLD 

TRACE 0LDPL 

22 

TRACREL 

TRACE relocatables 

23 

TRACE 

TRACE program 

24 

ATLASR 

iZfVERLAY (ATLAS, 0,0) relocatables 

25 

ATLAS 

frVEKLAY (ATLAS ,0,0) absolutes 

2o 

DUMMYR 

JWERLAY (DUMMY ,0,0) reloca tables 

27 

ALIBCT-D 

ATLAS library JZfLDPL 

2b 

ALIBREL 

ATIAS library relocatables 

29 

CLIBREL 

Control library relocatables 

30 

ILIBJJLD 

Interactive control library (W<DPL 

31 

ILIBREL 

Interactive control library relocatables 

32 

ADDI^LD 

Add/Interpolate )2LDPL 

33 

ADDIREL 

Add/Interpolate relocatables 

34 

AF1O0LD 

AF 1 0LDPL 

35 

AF10REL 

API relocatables 

36 

CHJ3LJ3LD 

CH0LESKY (2tTJ)PL 

37 

CH0LREL 

CHJSLESKY relocatables 

38 

DESIJJLD 

DESIGN 0LDPL 

39 

DESIREL 

DESIGN relocatables 

40 

DUBLCT^D 

Doublet Lattice )SLDPL 

4l 

DUBLREL 

Doublet Lattice relocatables 

42 

EXTKJ2ILD 

EXTRACT (JLDPL 
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43 

EXTRREL 

EXTRACT relocatables 

44 

FLEXJ5LD 

Res dual Flexibility i^LDPL 

45 

FLEXREL 

Residual Flexibility relocatables 

46 

FLUTPLD 

V-G FLUTTER J2LDPL 

47 

FLUTKEL 

V-G Flutter relocatables 

48 

GRAPPLD 

GRAPHICS 0LDPL 

49 

GRAPREL 

GRAPHICS relocatables 

50 

INPTJJLD 

INPUT giLbPL 

51 

INPTKEL 

INPUT relocatables 

52 

INTEJJLD 

INTERPjaLATIJZW ^DPL 

53 

INTER EL 

INTERP0LATTJ3N relocatables 

54 

L0AD0LD 

L(?ADS J20:,DPL 

55 

U3hDkEL 

LJ3ADS relocatables 

56 

MACHJ3LD 

MACHBjaX J3LDPL 

57 

MACHREL 

MACHB0X relocatables 

58 

MASS0LD 

MASS (2fLDPL 

59 

MASSREL 

MASS relocatables 

60 

MERGJ3LD 

MERGE 0LDPL 

b1 

MLKGREL 

MERGE relocatables 

b2 

MULT0LD 

MULTIPLY J2fLDPL 

63 

MULTREL 

MULTIPLY relocatables 

64 

0TPT^LD 

j?UTPUT (3LDPL 

65 

JiJTPTREL 

J3UTPUT relocatables 

66 

PRNTJZTLD 

PRINT I3LDPL 

67 

PRNTREL 

PRINT relocatables 

68 

RH;<53jaLD 

RHJZG jaLDPL 

69 

RH03REL 

RH03 relocatables 

70 

STTF0LD 

STIFFNESS J3LDPL 

71 

STIFREL 

STIFFNESS relocatables 

72 

STRE^LD 

STRESS 0LDPL 

73 

SIREREL 

STRESS relocatables 

74 

VIBR0LD 

VIBRATI(3N 0LDPL 

75 

VIBRREL 

VIBRATIpTN relocatables 

2 

ABSOLUTE TAPE 


File 

Name 

Contents 

1 

CATM 

ATLAS control card procedures 

2 

AC I 

ATLAS Catalog Interpreter 

3 

ATLAS PC 

ATLASPC precompiler 

4 

SNARK 

SNARK precompiler 

5 

SYSTPR0 

ACI statement file 

6 

ATLASL 

ATIAS library 

7 

CLIB 

Control library 

8 

ILIB 

Interactive control library 

9 

VLIB 

Version library 

10 

DUMMYR 

OVERLAY (DUMMY, 0,0) relocatables 

11 

ZiTLAS 

JZIVERLAY (ATLAS ,0,0) absolutes 

12 

ADDIJ3LF 

Add/lnterpolate absolutes 

13 

AF10J2TLF 

AFl absolutes 
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14 

BUCK0LF 

BUCKLING absolutes 

15 

CHpLJ2fLF 

CH0LESKY absolutes 

1b 

DLSIJ^LF 

DESIGN absolutes 

17 

DUBLJSLF 

Doublet Lattice absolutes 

18 

EXTRpLF 

EXTRACT absolutes 

19 

FLEX0LF 

Residual Flexibility absolutes 

20 

flutjjlf 

V-G Flutter absolutes 

21 

GR/iP^LF 

GRAPHICS absolutes 

22 

1NPTJ3LF 

INPUT absolutes 

23 

1N02J3LF 


24 

IN02;3LF 


25 

1N03JJ1.F 


26 

IN04J3LF 


27 

IN05J2TLF 


28 

1N06PLF 


29 

1N07J?LF 


30 

INTL0LF 

INTERPJ?LATI0N absolutes 

31 

LJ3AD0LF 

LJ3ADS absolutes 

32 

MACHJ3LF 

FJ\CHB0X absolutes 

33 

MASS0LF 

MASS absolutes 

34 

MEKG0LF 

MERGE absolutes 

35 

MUL11?LF 

MULTIPLY absolutes 

36 

jarPT^LF 

jaUTPUT absolutes 

37 

PRIN0LF 

PRINT absolutes 

o8 

RH030LF 

RHJ33 absolutes 

39 

STlFjaLF 

STIFFNESS absolutes 

40 

iSTRE^JLF 

STRESS absolutes 

41 

VIBR0LF 

VIBRATIjaN absolutes 
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600 


ATLAS PREPROCESSORS 


600.1 PURPOSE 

The ATLAS Preprocessors read the data for the various 
ATLAS Processors, and incorporate it into the 
appropriate natrices for subsequent use. This code also 
reads matrices from save files generated in previous 
ATLAS runs. 

600.2 ACCESS 

The preprocessors are all overlays on file INPTJJLP, 
which is accessed by one of the following Control 
prograv statements; (sec. 200, ref. 1-1) 

READ INPUT 
LjaAD FILES (plist) 

L0AD MATRIX (plist) 

oUO.3 READ INPUT COMMAND 

ATIAS data is divided into sections beginning with 
"BEGIN name D/^TA" records. Upon encountering such 
records, control is transferred to the appropriate 
secondary overlay to process the ensuing records. 
Secondary overlays, matrix naming conventions and 
references to appropriate sections of reference 1-1 are 
given in table 600-'^. 
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Table 600-1 Preprocessor Secondary Overlays 


1 NAME 

1 

1 

OVT-RLAY 

FILE 

SECONDARY | 
OVERLAY 1 
NUMBERS 1 

LEADING MATRIX 
NAME LETTER 

1 

1 

1 

REF 

1-1 

SECT. 

1 

1 

1 

1 BC 

IN02J3LF 

1 t 

K 

1 

106 

1 

1 ELEMENTKEY 

1NO10LF 

2 1 

K 

1 


1 

1 GLJiii.METKY 

INO 10LF 

3,10B,14B 1 

G 

1 

126 

1 

1 MATERIAL 

IN01J2TLF 

4 1 

K 

1 

140 

1 

1 SUBSET 

INO60LF 

5 1 

SN,SE 

1 

156 

1 

I STRESS 

INO30LF 

^ 1 

N 

1 

« 

154 

1 

1 MASS 

IN04i?LF 

10B-17B 1 

M 

1 

138 

1 

1 STIFFNESS 

INO 10LF 

20B- 27B 1 

K 

1 

152 

1 

1 INTERACT 

INO60LF 

30B-37B 1 

I 

1 

130 

1 

1 FLUTTER 

IN07i2»LF 

40B 1 

U 

1 

122 

1 

1 Afl 

IN07J3LF 

42B 1 

A 

1 

104 

1 

1 DUBLAT 

IN07J2»LF 

43B 1 

D 

1 

116 

1 

1 MACHBjaX 

lN079tLF 

44B J 

B 

1 

136 

1 

1 RH03 

INO70LF 

45B 1 

R 

1 

150 

1 

1 L0ADS 

J.N02J3LF 

50B-57B I 

L 

1 

134 

1 

• 

1 DESIGN 

IN03J3LF 

60B-61B 1 

N 

1 

112 

1 

1 DETAIL 

1N03J2ILF 

62B 1 

N 

1 

114 

1 


600.4 LfJAD COMM/iNDS 

These commands result in the calling of overlay 
(INPTj .F,1,?7B). If the sxibstructure options described 
in section 230, reierence 1-1, are used, overlay (1,76B) 
is also called. 

600.5 ADDITION OF PREPROCESSING CAPABILITY 

a . Changes to OVERLAY (INPTJJLF, 1,0) -PREPR0C 

1. Change dimension of IDATA array. 

2. Change DATA statement for IDATA array. 

3. Change limit on D0 loop ending on 
staterrent 12. 

4. If the new data crpability involves the use of 
several secondary overlays, flow is controlled 
by variables L0VLY and N0VLY in v^jich the 
numbers of the current and next overlays are 
stored. These are irx commoi block /M^DUC(?M/, 
which must \so appear in the secondary 
overlays, ... which contains a scratch area 
for commoixi cation between secondaries. 

6. Change DATA statement for IN^F curray to 
reflect overlay file. 
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700. 


ATLAS TECHNICAL PROCESSORS 


Sections 701 through 716 discuss the code and structure of 
the ATLAS technical processors. The basic intent is to make 
it possible for programmers, unfamilrar with the code, to 
gain a fair understanding of the functioning of the module 
prior to actually reading the code. ATLAS communication 
files, general program method, subroutine and common usage 
are all presented with this intent. 
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ADDINT PROCESSOR 


701.1 GENERAL INFORMATICW 

701.1.1 Purpose 

1. Svun at corresponding reduced frequencies the sets 
of generalized air force matrices, [Q], for two or 
more lifting surfaces, and/or 

2. interpolate over a set of generalized air force 
matrices for an array of reduced frequencies cuid K- 
values to find air force matrices at intermediate 
K-values. 

701.1.2 Access 




701.2 


This module is called from the ATLAS control program by 
the EXECUTE ADDINT(plist) statement (sec. 202, ref. 1- 
1 ) • 


MATRIX ACTIVITY 


Name 


Input 

1 ACMijOO 

or 


Description 


File 


Aerodynamic module AFIORNF 

control matrix DUBLRNF 

MACHRLT 

RF33RNF 


Sxxxx 


FLEXRNF 

ADDIRNF 


2 GF0ijkl 

or 


Unsteady generalized AFIORNF 

air force matrices DUBLRNF 

MACHRNF 

RHi?3RNF 


Sxxxx yy 


ADDIRNF 

FLEXRNF 


Output 

1 xxxxx ADDINT control matrix ADDIRNF 

2 xxxxx yy Unsteady generalized ADDIRNF 

air force matrices 
(summed or interpolated) 
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A detailed de^scription of the matrix formats is contained in 

reference 1-2. 

701.3 PROGRAM METHOD 

ADDINT consists of one primary overlay, nained ADDINT, 
and tour secondary overlays named DECPAR, RSPW, RCCIW, 
and RMW. 

701.3.1 OVERLAY (ADDI0LF, 1 , 0) - ADDI NT 

ADDINT establishes labeled coimwn blocks and directs 
program flow through secondary overlays. No 
calculations or input/output are performed in ADDINT. 

701.3.2 0VERLAY (ADDI0LF. 1. 1) -DECPAR 
DECPAR is called to 

a. Interpret the execution parameters passed to ADDINT 
through the ATIAS common block /C^PARS/. 

b. Read the case-condition control matrices written by 
the unsteady aerodynamics module (s) and extract the 
arrays of K-values. 

c. Determine the storage allocation required by all 
subsequent ADDINT overlays. The array storage is 
problem dependent . 

d. Any errors discovered during steps a - c will cause 
diagnostics to be printed and ADDINT execution to 
be terminated. 

701.3.3 OVERLAY (ADDI0LF, 1 , 2) - RSPW 

For each input K-value, RSPW reads and sums cieneralized 
arr force matrices, [ Q ], over all surfaces, and writes 
the summed matrices on either - 

a. /"■)DIRNF as a full matrix if no interpolation is 
desired, or 

b. SCKAT1, in NPARTS vectors, if it is to be read 

later in RCCIW for interpolation. The size of the 
vectors, IPSIZE, is determined by available core in 
the next module, RCCIW, \^iich will have to store 
two vectors for each of the NINK input matrices 

arid one vector of the output [^)] matrix. 


701.3.4 (^ERLAY (ADDlgLF, 1 , 3) -RCCIW 


RCCIW produces generalized air force matrices, [P], for 
intermediate K- values by interpolatinq between the [Q] 
matrices calculated in RSPW. For each partition i of 
the [Q] Tiatrices generated in RSPW repeat steps a., b,, 
c . , and d . 

a. Read partition i of all NINK [p] matrices from RSPW 
into the rows of the matrix [GFKIP] which is of 
size NINK X IPSIZE. 

b. Usinu the subroutines C^CUB tit a chain of cubics 
through each of the vectors formed by columns of 
[GFKIP] and tlie corresponding K-values. This will 
produce a matrix of slopes whose elements 
correspond to those of [GFKIP]. 

For each output K-value repeat steps c. and d. 

c. Determine the appropriate K-value interval and 
interpolate for a partition of the output [Q] 
matrix . 

d. If NPARTS - 1, write the [Q] matrix and the control 
matrix to ADDIRNF. If NPARTS> 1 , write the vectors 
to SCRAT1. 

701.3.5 OVERLAY tADDI0LF, 1 , 4^ - RMW 

RMW is called to read the NPARTS partitions of each 
interpolatea [P], merge the partitions, and write the 
final matrices on ADDIRNF. The control matrix is also 
written onto ADDIRNF. 
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COMMON BLOCK USAGE 


I 


J2(VEKLAy: ADDI(2(LF 


I 


1 NAME 

1 

(1,0) 

1 

(1,1) 

1 

(1,2) 

1 

(1,3) 

1 

(1,4) I 

1 

1 

1 

1 

ADDINT 

1 

1 

DECPAR 

1 

1 

RSPW 

1 

1 

RCCIW 

1 

1 

RMW I 

I 


I 

Ci^NPARS I 


I 

X 

i 


I 


I 


I 

I 

KERR0R I 

X 

I 


I 


I 


I 


I 

I 

KDRNDM I 

X 

I 

X 

I 


I 


I 


I 

I 

ERRCJ2W I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

t 

FILCi?M I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

I 

KINCJJM I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

I 

K0TC52JM I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

I 

kJPTCJ^M I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

I 

SIZC0M I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

I 

I 

SURCJ^M I 

X 

I 

X 

I 

X 

I 

X 

I 

X 

t 


701.4.1 C0NPARS 

KERR0R - ATLAS system common blocks, described 
KQRNDM in section 100.2. 


701.4.2 ERRC0M 
FILC0M 


K1NC0M 


Contains a count of the number of fatal errors 
diagnosed by ADDINT. 

Contains the names of the ADDINT scratch and 
output files and the names to be assigned to 
output matrices . 

Contains the array of input reduced 
frequencies (K -values) . 


K^C0M - Contains the array of output reduced 
frequencies . 

0PTrj2lM - Contaxns program options specifying action to 
be taken (add and/or interpolate) and the 
checkout level . 


SIZC)3M - Contains variables defining the problem size. 

SURC)3M - Contains variables pertinent to the input 
surfaces: generating program, Mach number, 
span, altitude, Bret, etc. 



702. 1 
702.1 


702.1 

702.2 


702. AF1 PROCESSOR 


GENERAL INFOKMATl- N 
• ^ P urp ose 

The AFI Processor generates pressure distributions, 
sectional forces, and generalized air forces for general 
three-dimensional configurations using modified strip 
theory (ref. 702-1). Execution options include: 

1. Use of externally generated vibration mode shapes 
or internally generated rigid body modes 

2 . One plane of symmetry 

3. Experimental correction data 

4. Ouasi-steady or unsteady analysis 

. 2 Acces s 

This module is called from the ATLAS control program by 
the EXECUTE API statement (sec. 204, ref. 1-1). 

MATRIX ACTIVITY 



Name 

Description 

File 

Input 

1 

AFCCi 

Control Surface Correspondence 

DATARNF 

2 

AFCFi 

Experimental Data 

DATAENF 

3 

AFCGi 

Contiol Surface Geometry 

DATARNF 

4 

AE’CSi 

Control and Size Data 

DATARNF 

5 

AFMCi 

Modal Control Data 

DATARNF 

6 

AFMGi 

Main Surface Geometry 

DATARNF 

7 

AFSLi 

Sectional Lift Data 

DATARNF 

8 

AFPMi 

Pitching Moment Data 

DATARNF 

9 

AFRBi 

Rigid Body Modes 

DATARNF 

10 

AFTCi 

Tab Surface Correspondence 

DATARNF 

1 1 

AFTGi 

Tab Surface Geometry 

DATARNF 

12 

AFURi 

Unit Rotations Control 

DATARNF 

13 

M’YGi 

Strip Cxrt Geometry 

DATARNF 

14 

Cddd 

Modal Interpolation Arrays 

INTERNF 

15 

INTABLE 

Interpolation Table 

INTERNF 
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Output 


1 

ACMi j 

Control and Size Data 


AF10RNF 

2 

CAyi^Al 

Co:>Tpionent Forces 


AF10RNF 

3 

CGCi j 

Ccnrrol Surface Geometry 


AF10RNF 

4 

ClXJij 

Geometry Correspondence Table 

AF10RNF 

5 

GFOijAl 

Generalized Airforces 


AF10RNF 

b 

MICij 

Main Surface Geometry (Part 

1) 

AF10RNF 

7 

M2Cij 

Main Surface Geometry' (Part 

2) 

AF10RNF 

8 

S10ij 

Static Induction Matrix 


AFIORNF 

9 

SAyijAl 

Sectional Forces 


AF10RNF 

10 

TGCij 

Tab Surface Geometry 


AF10RNF 

11 

Wxxij 

Mode Shapes 


AF10RNF 

12 

XMpij 

Lift Curve Slopes 


AF10RNF 


702.3 PROGRAM METHOD 

Tiie AFl module includes the primary overlay end four 
secondary overlays on absolute file AFIO^LF. 


Module 

Name 

Overlay 

Level 

Description 

AFl 

(1,0) 

Controls 

flow of execution 

AFGE(3M 

(1,1) 

Generates 

geometry data 

AFSI 

(1,2) 

Generates 

static indiiction matrix 

AFM0DE 

(1,3) 

Generates 

mode shapes 

AFGAF 

(1,4) 

Generates 

pressures, sectional 


forces, and ueneralrzed airforces. 


702.3.1 (OVERLAY (AF1O0LF, 1,0) -AFl 

a. Retrieves and checks execution parameters frora 
common block /C(?NPARS/. 

b. Reads control xnformation from file DATARNF and 
stores this data in labeled common block /CjWJTRL/ 
for communication with secondary overlays. 

c. Each secondary overlay as preloaded to determine 
the leiiqtJa of available blank common storage. A 
sununary of available and required blank common area 
is printed. The job is aborted if insufficient 
fielvd length is available for the problem size. 

d. Secondary overlays (1,1), (1,2), (1,3), and 

(1,4) are called. 
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e. Prints a job siinonary containing execution times for 
each secondary overlay. 

702.3.2 0VERLAY ( AF 1O0LF ,1,1) -AP6E(ayi 

Generates strip yeometry data 

a. heads main surface, control surface, and tab surface 
geometry input data matrices from file DATARNF. 

b. Computes strip centerline 1/2 chord, 3/4 chord and 
elastic axis coordinates; strip dihedrals, strip 
widths, and static induction geometry parameters 
tor each strip - 

c. Outputs strip geonetry matrices to file 
AF50RNF. 

702.3.3 0VERLAY (AF 1 00X>F ,1,2) -AFSI 

Generates the static induction matrix 

a. Reads static induction geometry matrix from file 
DATARNF. 

b. Computes 2-D or 3-D static ijiduction matrix, S, 
depending on the user assigned optional value of 
TW{,JD. 

c. Outputs the static induction matrix to file 
AF10RNF. 

702.3.4 fcJVEJtLAY (AF 1 00LF ,1,3) -AFM0DE 

Generates mode shapes. 

a. Reads geometry data matrices from file AFIORNF. 

b. If elastic modes iiave been specified, the modal 
control matrix is read from file DATARNF and the 
nKXfal coefficient matrices are read from tile 
INTERNF . 

c. Displacements and relative rotations are computed 
for each strip to generate tJie mode shape matrix - 

d. Partitions of the mode shape matrix are written on 
tile AFIORNF. 
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e. It unit rotation inodes have been specified, the 
unit rotations control matrix is read from file 
DATARNF . 

£ . Relative rotations are computed for each strip to 
generate the mode shape matrix. 

g. Partitions of the mode shape matrix are writ-^on on 
file AF10RNF. 

h. If rigid body modes have been specified, the rigid 
body modes matrix is read from file DATARNF. 

i. Displacements and slopes are confuted for each 
strip on each main surface to generate the mode 
shape matrix PHI. 

j. Partitions of the mode shape matrix are written on 
file AF10RNF. 

702.3.5 0VLRLAY (AF1O0LF. 1 ,4) -AFGAF 

Generates aeroelastic forces. 

a Reads geometry', modal and option data from DATARNF 
and AFIORNF- Modifies lift and moment 
coefficients- Loops thru e, on Rvalue (or once) to 
compute unsteaay forces (or qua si -steady forces) . 

b. CcMTiputes oscillatory derxvative matrix, D. 

c. Computes and outputs to AFIORNF sectional forces 
±or each strip (PHI) -^D (IHI) . 

d. Computes and outputs to AFIORNF component forces 
for each strip, (PHI) S,-»D0. 

e. If quasi-steady forces are required then 
terminates, otherwise confutes aind outputs to 
AFIORNF generalized airforces. 
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COMMON BLOCK USAGE 


1 

1 

1 


OVERLAY: 

AF1O0LF 



_L 

NAME 

Jl^Ol 

a. 

CLUJ 


J__LL3i 

JL 

JU41_ 

J. 

1 

AFILES 

X 

1 

X 1 


1 X 

1 

X 

1 

1 

bCINDX 


1 

X 1 

X 

1 X 


X 

; 

1 

C0NPARS 

X 

1 

1 


1 

1 


1 

1 

Q2tNTRL 

X 

1 

X 1 

X 

1 X 

1 

X 

1 

1 

ERRMSG 

X 

1 

X 1 

X 

1 X 

1 

X 

1 

1 

ERRSW-1 

X 

1 

! 


1 

1 

X 

1 

1 

KERR0R 

X 

1 

1 


1 

1 


1 

1 

K^RNDM 

X 

1 

X i 

X 

1 X 

1 

X 

1 


LAC0RE 

X 

_L 

X 1 

X 

1 X 

_L 

X 

_L 


70/. 4.1 
702.4.2 


/KERRJ<fR/,/C0NPARi>/,/KQRNDM/ are ATLAS system common 
blocks . 

/ECINDX/ Contains blank conmon array indices. 

/C0NTRL/ Contains program control and size 
ini ormation. 


/ERRMSG/ 

/ERRSUM/ 

/AFILES/ 

/LACIZJRE/ 


Contains array of error messages. 

Contains error title and error count. 

Contain AF1 binary scratch file names. 

Contains lengths of available core for 
each secondary overlay of AFI. 
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703 


DESIGN PROCESSOR 


703. 1 

GENERAL 

INFORMATION 


703.1.1 

Purpose 




1. Produce margins ot safety. 

2. Update element properties. 

3. Record and display history. 

4 . Optimize composite structure . 

5. Smooth element properties. 


703.1.2 

Access 




This module is called from the ATLAS control program 


the EXECUTE DESIGN (plist) statement. 

(sec. 212, ref. 


1) . 



703.2 

MATRIX ACTIVITY 



Name 

Description 

File 

Input 




1 

NALL0WC 

Compression allowables 

DATARNF 

2 

NALLpWS 

Shear allowables 

DATARNF 

3 

NBIOO la 

Buckling interaction 
data matrix 

DATARNF 

4 

NBUCTAB 

Buckling table index 

DATARNF 

5 

NCOOIba 

Design load control 

DATARNF 

b 

NLLCRba 

Design loadcases 

DATARNF 

7 

NDPOOIa 

Design control 

DATARNF 

8 

NDOOIba 

Temperature data control 

DATARNF 

9 

NlTYPEa 

Element type and partitions 

DATARNF 

10 

NKSOOIa 

Element control 

DATARNF 

11 

NLOOIba 

Design loads 

DATARNF 

12 

NMATERa 

Material code reference 

DATARNF 

13 

NMSOO la 

Margins of safety 

DATARNF 

14 

NpCNTRa 

Optimization Control matrix 

DATARNF 

15 

NJ3DVCCa 

Variable constraint control 

DAT3VRNF 

16 

NJiJDOOIa 

Optimii tion data 

DATARNF 

17 

NPARAMa 

Parameters 

DATARNF 

1? 

NPBOOIa 

Boundary data 

DATARNF 

19 

NPDOOIa 

Design data 

DATARNF 

20 

NSMCNTa 

Smoothing property control 

DATARNF 

21 

NSMKE'/a 

Smoothing problem key 

DATARNF 

22 

NSPOO la 

Smoothing property data 

DATARNF 

23 

NSTOO la 

Restrain si -ing data 

DATARNF 

24 

NVARlAa 

Variable constraints data 

DATARNF 

25 

LC0i2JRba 

Loadcase correspondence 

DATARNF 
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it 


2b 

KPARMSI 

Stiffness parameters 

27 

KSFOOIa 

Element data matrix 

28 

KM00001 

Material properties 

29 

SEKddda 

Element subsets 

30 

SCTJO Iba 

Stress control data 

31 

SLCSTba 

Stress loadcase table 

32 

STOOIba 

Stress matrix 


DATARNF 

DATARNF 

DATARNF 

DATPRNF 

STRERNF 

STRERNF 

STRERNF 


Name 


Output 


1 

DESPARa 

2 

KlSTRYa 

3 

KSFOOIa 

4 

MlNOIca 

5 

MPARcba 

6 

MP^SOOIa 

7 

MTARcbd 

8 

MOOIcba 

9 

NOOIcba 

10 

SOOIcba 

11 

SMXMcba 

12 

TMIMcba 

13 

TOOIcba 


Description 


File 


History parameters 
History minimum marqins 
Element data matrix 
Resize minimum margins 
Strength parameters 
Pointers tor minimum margins 
Thermal design parameter 
Strength minimum margins 
Thermal design minimum 
margins 

Strength margin of safety 
Strength min-max margins 
Thermal min-max margins 
Thermal margin of safety 


DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 

DESIRNF 


1 ) 


( 1 ) 

( 1 ) 


(1) Also on SCOORNF 


A detailed description of the matrix formats is 
contained in reference 1-k. 


703.3 PROGRAM METHOD 


The DESIGN module consists of a primary overlay DESIGN 
and ten secondary overlays, KJ<JNTRJ2IL, 

STRNGTH, HI STJ2IRY .RESIZE , FLUTTER, 
DATAMj3V,j3PTlMU:4,SM0)OTHG,THERMLI and THERMLX. 


703.3.1 gVERLAY(DES.OLF.I.O) - DESIGN 

a) Controls execution of secondary overlays by us: ig 
array in common block /LiijCC0NT/. This array is 
established by the K0NTR^J!Ii overlay, and contains an 
entry tor each overlay that is to be executed. If 
multiple stage executions are requested, the 
overlay finds the additional information in 
/LJ3CPARS/ . 

b) Commoii blocks /C0MMASK/ and /NCpJRES/ are loaded by 
data statements in this overlay. 
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703.3. 


703.3. 


703.3. 


2 OVERLAY (DESI0LF. 1.1) - K0NTK 0L 

This overlay perfoarnis the managing function of tlie 

DESIGN module and does the following: 

a) Sets defaults. 

b) Reads execution parameters in /C0KP7iRS/ and 
translates them to module directives, which are 
stored in common blocks /DALECOM/, /LOCCONT/, 
/L0CFLTR/, /LOCH I ST/, /L0CPA1 V and /RECONTR/. 
Produces diagnostics tor unrecognized parameters. 

c) Sets variables, file names *nd overlay names. 

3 OVERL AY (DESI0LF. 1 . 2) - STRNGT H 

This overlay produces strength margins of safety. 

a) It reads material allowables (produced by the 
material preprocv 3Sor) , buckling allowables 
(produced by the design preprocessor) , element- 
properties (produced by the stiffness 
preproct ssor) , design data, loads data and 
temperature data (ail produced by the design 
preprocessor) and finally stresses (produced by the 
stress processor) . Based on these data it produces 
output margins of safety for strength. 

b) The overlay also contains buckling criteria for 
plate-like elements which can be applied either in 
one step or by iterating to convergence as 
indicated by execution parameters. 

c) The output from the overlay is a set of margins of 
safety and minimum margins of safety which can be 
either *’pure strength” margins or a combination '<f 
strength and buckling - 

4 OVERLAY (DEH10LF. 1.3) - HISTOR Y 

a) Writes all margins of safety on DESIRNF at time of 
execution if requested by user . 

b) Produces matrix containing history of margins of 
safety from previous cycles for output ;.r7 it. 

5 OVERLAY (DESI0LF.1 .4) - RE.SI ZE 

This overlay updates tJie ele^’ -nt properties in tlie Kh'’- 

matrices on DATAKNF. 


703.3 


t ■‘f-* 





a) It reads bound data, design data, restraining data, 
input margin data, element property data (all on 
DATARNF) and calculated laargins of safety (on 
DLSIRNF) . 

b) Updates el*' aunt properties in the KSF matrices with 
regard to calculated margins of safety subject to 
the user constraints which can be input, calculated 
or introduced as execution parameters. 


7 0 3 . 3 . t) 0V£K.AY(D££ :' :0LF,1,5) - FLUTTER 

a) This ov'eriay receives input data through the 
execution parameters (subsets and associated 
factors) . These are converted to margins of safety 
for updating of element properties. This serves 
two purposes: to update structure for simple 

factors to produce "flutter constraints" 
(equiva^ ‘=*nt to calculated lower bounds on element 
proper- 

703.3.7 0VERIAY fPESI0LF,1,6) - DATAM0V 

The '‘xuicticn of this overlay is purely administrative. 

It saves "old" element properties on DESIRNF in order to 
guarantee data integrity and to assure an alternate 
restart point for a new resizing. 

703.3 8 (yAERLAY(DESI0LF,1,n) - OPTIMUM 

This overlay perforins c^timizations of composite 
elements (CPLATE and CQ3VER) . It is built around the 
concept of local cptimization and operates on a set of 
problems defined in the input as element subsets. The 
constraints are of strength tjpe and the design 
variables can be coupled by directives in the input 
stream. 

703.3 ** 0VERLAY(DESI0LF,1,12) - SM00TH6 

This overlay changes (smooths) element properties 
according to tiae specifications provided by the user in 
the smoothing data. 


703.3.10 crVERbAY (DESI0LF,1,13) - THERMLI 

Tills overlay initializes data for thermal design margins 
of saff?ty . 

Ir reads element properties (produced by the stiffness 
preprocessor) , design data and thormal loads data 
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({.roduced by the de^iign preprocessor) , and stresses 
(produced by the stress processor) . These data are 
collected and stored in a single block of data for each 
element. 


The output from the overlay is a partitioned scratch 
matrix containing all element data (excluding material 
allowables) reqxiired tor thernal design margins of 
safety. 

703-3.11 (WERLAY (DESIgLF.I ,14) - THERMLX 

This overlay produces tliermal design margins of safety. 

It reads material allowables (protiuced by the material 
prep>rocessor) and element data (produced by the design 
preprocessor) - Based on these data it produces output 
margins of safety for thermal design. 

The output from the ovexlay is a set of margins of 
safety and minimum margins of safety for thermal design. 
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COMMON BLOCK USAGE 




















703.4.1 


System Conmvon Blocks 


/CiZWPARS/: 

/KERRJ^K/; ATLAS system common blocks 

/K\^BUFP/; detailed in sec. 100.2. 

/KyRNDM/: 

703.4.2 Design Common Blocks 


/CNMN1/: 

/CfXWASK/: 
/CJ3MSCK/ : 
/DALECJ^/: 

/DATAMS/: 

/DESS CRT/: 


Contains information for the optimizer 
in tlje composite optimization. 

Contains bit information for masking 

Scratch conmion block 

Contains infornation regarding iteration 
for soltition of nonlinear margins of 
safety in the STRNGTH overlay. 

Contains infornation required to produce 
margins of safety for each element in 
the STRNGTH overlay. 

Scratch common block . 


/INIT/: Information concerning the initiation 

of an optimization for the composite 
el eraents. 


/L((5CC.0NT/: Contains vector defining execution 

file names and overlay names. 

/L0CFLTR/: Contains iiiformation pertaining to the 

flutter execution of DESIGN. 


/L^3CHIST/: 


Contains inf or nation pertaining to the 
history execution of DESIGN. 


/L(^CPAhi>/: 


Contains execution variables for DESIGN. 


/MAC0M/: 


Intorraation tor execution of the 
subroutine MAMULT 


/NC0RES/: Contains element description for all 

element tyj:es ana size of output 
partitions . 

/0LFLAG/: Contains pointers and flag_. tor STRNGTH 

overlay. 
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/pPTCpN/: 


Contains pointers and flags for 
execution of the composite optimization. 


/^apTCpRK/: 


/J^PTDDD/: 


/0PTP0S/; 
/ffPTPRf9b/ : 
/0PTRES/: 


Contains scratch pointers for the 
composite optimization. 

Contains scratch matrices for conversion 
of strains to stresses and transformation 
to element frames in the composite 
optimization. 

Position nximbers for active positions 
in the composite optimization. 

Flags and pointers for output from the 
composite optimization. 

Information describing critical laminae 
and related information. 


/0PTS0L/: 

/J5PTVARI/: 

/REC0NW: 

/REVECT/: 

/THERCMI/: 

/THERCMX/; 

/VPki^P/: 


Criterion and convergence flags for 
composite optimization. 

Constraint information for the composite 
optimization. 

Contains flags and pointers for the 
RESIZE overlay. 

Contains information required for one 
element in order to update element 
properties in the RESIZE overlay. 

Contains flags and pointers for the 
THERMLI overlay. 

Contains flags and pointers for the 
THERMLX overlay- 

Contains flags and pointers for the 
SM00THG overlay. 


} 
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704. 


DUBLAT PROCESSOR 


704.1 GENERAL INFORMATION 

704.1.1 Purpose 

The DUBLAT Processor generates pressure distributions, 
stability derivatives, and generalized air forces for 
general three -dimensioi.al configurations using the 
doublet lattice method (ref. 704-1). Execution options 
include : 


(1) Use of externally generated vibration mode shapes 
or internally generated rigid body modes. 

(2) One or two planes of symmetry. 

(3) Pressure and normal wash corrections. 

(4) Reuse of a previously generated kernel matrix at 
selected Mach numbers and reduced frequency values. 

704.1.2 Access 

This module is called from the ATLAS control program by 
the EXECUTE DUBLAT(plist) statement (sec. 216, ref. 1- 
1 ) . 

704.2 MATRIX ACTIVITY 



Name 

Descrxption 

File 

Input 

1 

DLCSiOO 

Control and size data 

DATARNF 

2 

DLPGiOO 

Lifting surface geometry 

DATARNF 

3 

DLBGiOO 

Body interference surface 
geometry 

DATARNF 

4 

DLDIiOO 

Body doublet geometry 

DATARNF 

5 

DLVIiOO 

Velocity profiles 

DARARNF 

6 

DLPIiOO 

Pressure scaling data 

DATARNF 

7 

DLMCiOO 

Modal control data 

DATARNF 

0 

DLRBiOO 

Rigid body modes 

DATARNF 

9 

DLSSiOO 

Subset data 

DATARNF 

10 

Cddd 

Modal interpolation arrays 

INTERNF 

11 

INl'ABLE 

Interpolatxon table 

INTERNF 



Output 


1 

BiCijOO 

Box geometry (part 1) 

DUBLRNF 

2 

B2CijOO 

Box geometry (part 2) 

DOBLRNF 

3 

ACMijOO 

Control and size data 

DUBLRNF 

4 

DBCijOO 

Body doublet geometry 

DUBLRNF 

5 

GFOijkl 

Generalized air forces 

DUBLRNF 

b 

Ml^ijOO 

1/4 chord displacements 

DUBLRNF 

7 

M3j?i jOO 

3/4 chord slopes and displ. 

DUBLRNF 

8 

PD^iDkl 

Pressure differences 

DUBLRNF 

9 

PSCijOO 

Pressure scaling data 

DUBLRNF 

10 

^^Oxxkl 

yuasi-inverse natrix 

DUBLRNF 

11 

BBCijOO 

Strip/box corresp . table 

DUBLRNF 

12 

SDpijkl 

Stability derivatives 

DUBLRNF 

13 

SFBijkl 

Body sectional forces 

DUBLRNF 

14 

SFj3ijkl 

Sectional forces 

DUBLRNF 

15 

SGCijOO 

Strip geometry 

DUBLRNF 

16 

VPCijOO 

Velocity profile data 

DUBLRNF 


A detailed description of the matrix formats 
is contained in reference 1-2. 


70^ . J PROGRAM METHOD 


The DUBLAT module includes the primary overlay and seven 


secondary 

overlays 

on cibsolute file DUBL0LF. 

Program 

Name 

Overlay 

Level 

Description 

DUBLAT 

(1,0) 

Controls flow of execution 

INPUTG 

(1,1) 

Generates geometry and option data 

M0DEB 

(1,2) 

Gei^erates 1/4 chord box 
displacements 

MV9DEW 

(1,3) 

Generates 3/4 chord box 
displacements and slopes 

GENDW 

(1,4) 

Generates kernel and wash matrices 

gUASII 

(1,5) 

Generates quasi -inverse of kernel 
matrix and solution vectors 

FUTS^^L 

(1,6) 

Generates solution vectors from a 
previously generated quasi -inverse 

^^DFIN 

(1,7) 

Generates pressures, sectional 
forces, stability derivatives, 
and generalized forces 
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704.3.1 flfVERLAY (DUBJ^F.1.0) - DUBIA T 


a. Retrieves and checks execution parameters from 
common blocK /C^FNPARS/. 

b. Reads control information from file DATARNF and 
stores this data in labeled common block /C^TRjaL/ 
for communication with secondary overlays. 

c. Each secondary overlay is preloaded to determine 
the length of available blank common storage. A 
summary of available and required blank common area 
is printed. The job is aborted if insufficient 
field length is available for the problem size. 

d. Secondaries (1,1) , (1,2) and (1,3) are called only 
once for each execvition of tfie DUBLAT (1,0) 
overlay, while the (1,4) - (1,7) secondary overlays 
are called for each combination of reduced 
frequency and Mach number to be executed. 

e. Prints a job summary containing execution times for 
each secondary overlay. 

704.3.2 0VERLAY (DUBL0LF. 1 . 1) - INPUTG 

a. Reads lifting surface and interference surface 
geometry input data matrices from DATARNF. 

b. Computes box coordinates of sending (centerline 1/4 
chord) and receiving (centerline 3/4 chord) points, 
box dihedral, and box inboard and outboard 
coordinates for each box. 

c. Outputs box geometry matrices to file DUBLRNF. 

d. Reads doiiblet geometry input data matrix from file 
DhTARNF. 

e. tes doublet element radii and centerline 
. xinates tor each bod,, doublet . 

f. Outputs body doublet geometry matrix to file 
DUBLRNF . 

g. Reads pressure correction input data matrix from 
file DATARNF. 

h. Determines the operation (pressure scaling or 
pressure replacement) to be made on each box. 
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i. Outputs pressure correction data matrix to file 
DUBLRNF . 

j. Reads velocity profile input data matrix from file 
DATARNF . 

k. Computes the velocity ratio, v (local) /v (free 
stream) , to be applied to each box. 

l. Outputs the velocity profile matrix to file 
DUBLRNF. 

704.3.3 gVERLAY (DUBL0LF, 1, - Ma)EB 

a. Reads modal control matrix from file DATARNF (if 
elastic modes are to be used) or rigid body matrix 
from file DATARNF (if rigid body modes are to be 
used) . 

b. It modes are to be applied to lifting surfaces, 
then 

(1) the box geometry matrix is read from file 
DUBLRNF. 

(2) if elastic modes are to be used, the box 
subset matrix is read from file DATARNF and 
each modal coefficient array matrix is read 
from file INTERNF. 

(3) box quarter chord displacements are computed 
using subroutine AIN*rG for each mode to be 
applied to each box . 

c. It elastic modes are to be applied to body 
interference panels then 

(1) the strip/box correspondence table is read 
from file DUBLRNF 

(2) each modal coefficient array matrix is read 
from file INTERNF. 

(3) box quarter chord displacements are computed 
using subroutine AINTG for each mode to be 
applied to each box . 

d. If modes are to be applied to body doxiblets then 

(1) the doublet geometry matrix is read from file 
DUBLRNF . 
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if elastic inodes are to be used, each modal 
coefficient natrix is read from file INTERNF. 
Otherwise, the rigid body inodes matrix is read 
from file DATARNF. 

(3) doxiblet centerline displacements are computed 
using subroutine AINTG. 

e. The quarter chord displacements matrix is output to 
tile DUBLRNF. 

704.3.4 0VERLAy (DUBL0LF, 1 , 31 - M0DEW 

a. Reads modal control matrix from file DATARNF (if 
elastic modes are to be used) or rigid body matrix 
rrom file DATAKNF (if rigid body modes are to be 
used) . 

b. If modes are to be applied to lifting surfaces then 

(1) the box geometry matrix is from file 

DUBLRNF and the subset data matrix is read 
from file DATARNF. 

(2) if velocity profiles are to be applied to 
strips the velocity profile matrix is read 
from file DUBLRNF. 

(3) if elastic modes are to be used, each modal 
coefficient array matrix is read from file 
INTERNF . 

(4) box three-quarter chord displacements and 
slopes are computed using subroutine AINTG for 
each mode to be applied to each box. 

(5) wash values (modified by the velocity profile 
effect) are computed for each box. 

c. It elastic modes are to be applied to body 
interference panels then 

(1) the strip/box correspondence table is read 
from file DUBLRNF. 

(2) each modal coefficient array matrix is read 
from file INTERNF. 

(3) box three-quarter chord displacements and 
slopes are computed using subroutine AINTG for 
each mode to be applied to each box. 
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(4) wash values are computed for each box. 

d. The wash matrix is output to file DUBLRNF. 

e. It body doublets were defined, then 

(1) the body doublet geometry matrix is read from 
file DUBLRNF. 

(2) if elastic modes are to be used, each modal 
coefficient matrix is read from file INTERNF 
(otherwise tlie rigid body modes matrix is read 
from file DATARNF) . 

(3) doublet axis displacements and slopes are 
computed using subroutine AINTG. 

(4) the derivative of the doublet axis slopes is 
computed . 

(5) using displacements, slopes, and derivatives 
of slopes, the incremental pressures due to 
doublets are conputed and output to scratch 
files . 

704.3.5 0VERLAY (DUBL0LF. 1 .4^ - GENDW 

Generates the kernel matrix, [D], and the wash 

matrix [W]. 

a. If an existing quasi-inverse matrix is to be used, 
skips to step e. 

b. The box geometry matrices and strip/box 
correspondence matrix are read from file DUBLRNF. 

c. Loops on boxes to conpute elements of the kernel 
matrix, [D], using subroutines INCR0, KERNEL, and 
SNPDF. 

d. Outputs kernel matrix to file DUBLRNF. 

e. If modal data iias been defined, the box geometry 
matrices and strip/box correspondence matrix are 
read from fi,le DUBLRNF in preparation for 
generating the wash matrix. 

f . Loops oil boxes to generate a single K value wash 
vector for each mode. Each wash vector is oi^ jut 
to scratch file SC4F1L. 
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704.3.6 0 VEKIAY (DUBL0LF. 1 . 51 - QUASI ! 


) 


Reads rows of the kernel matrix [D] into blank 
common mitil either all rows have been read or the 
available blank common has been filled. 

Performs Gauss elimination on the partioned [D] 
matrix. 

Outputs the upper and lower parts of the eliminated 
partition to two different scratch files (the lower 
part contains the elimination multipliers) . 

If modal data is present » the wash vectors are read j. 

and the elimination multipliers are applied to each 
vector . 

Back substitution is performed to solve the system 
of complex equations D~*W. The solution vector is 

output to a scratch file . ! 

! - 

Ihe quasi-inverse matrix is output to file DUBLRNP 
in row partition form. 

704.3.7 0VERIAY (DUB3j0LF. 1.6^ - FITTS 0L 

Solves the system of complex equations 

CD][DELCP=[W ] 

when a quasi-inverse matrix is available from a prior 
execution of QUASH. The capability to save the quasi- 
inverse allows the GENDW overlay to be bypassed, saving 
a substantial portion of the job cost. This feature 
applies only when the wash matirix is modified to 
generate a new solution. 

a. . Reads the quasi-inverse matrix into blank common in 

partitioned form. 

b. Reads wash vectors into blank c on. 

c. Applies elimination multipliers to the wash 
vectors . 

d. Back substitution is performed to solve the system 
of complex equations [D]~»[W]. The solution 
vectors are output to a scratch file. 
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704.3.8 0VLRLAY tPUBLgLF, 1 . 71 - M0DF1N 

.) 

Generates final pressures, sectional forces, stability 

derivatives and generalized forces, 

a. Solution vectors (pressure coefficients) are read 
from scratch file and modified by the body doublet 
effect if doubl.ts were defined. 

b. If pressure correction data are defined, pressures 
are modified accordingly. 

c. Loops on strips to compute sectional forces and 
stability derivatives. 

d. Outputs sectional forces to file DUBLRNF. 

e. If body doublets exist, computes body sectional 
forces and modifies stability derivatives. 

f. Computes generalized forces. 

g. Outputs pressvuces, stability derivatives, and 
generalized forces to file DUBLRNF. 

704.4 COMMON BLOCK USAGE 


1 




OrVERLAY: 

DUBL0LF 


1 

1 NAME 

(1>Q) I (1> 


2) 1 (1.31 1(1,41 1 (1, 


6) J (1,7) ! 

IKERR0R 

X 

X 

X 

X 

X X 

X 

X 1 

IC0NPAKS 

X 






1 

1 KORNDM 

X 

X 

X 

X 

X X 

X 

X 1 

IC0NTR0L 

X 

X 

X 

X 

X X 

X 

X 1 

lEkRMSG 

X 

X 

X 

X 

X 


X 1 

lERRSUM 

X 






1 

1 FILES 

X 

X 

X 

X 

X X 

X 

X 1 

1 LAC0RE 

X 

X 

X 

X 

X X 

X 

X 1 

IMATNAM 

X 




X 


X j 

1 SMID0 

X 






1 

1 BCINDX 


X 

X 

X 

X 


X 1 

IDLM 




X 





704.4.1 /KERR0R/»/C0NPARS/,/KQRNDM/ are ATLAS system common 
blocks, described in section 100.2. 
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704.4.2 /Cj^NTKPL/ Contains program control and size 
information. 

/EKRMSG/ Contains array of error messages. 

/ERRSUM/ Contains error title and error count. 

/FILES/ Contains DUBLAT binary scratch file names. 

/1AC0RE/ Contains lengths of available core for 
each secondary overlay of DUBLAT. 

/MATNAM/ Contains the portion of the matrix name 
which is common to all matrices. 

/ZA1D0/ SNARK matrix output axixiliary ID. 

/BCINDX/ Contains blank common array indices. 

/DLM/ Contains kernel matrix parameters. 


f 
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FLEXAIR PROCESSOR 


705. 1 g.-:jeral informatics 

705.1.1 Purpose 

To calculate generalized airforce matrices that include 
tlie effects of the flexibility of vibration modes that 
are otherwise omitted from the mathematical model of a 
structure . 

706.1.2 Access 

This module is called from the ATLAS control program by 
the EXECUTE FLEXAIR Statement (sec. 220, ref. 1-1) 

705.2 MATRIX ACTIVITY 



Name 

Description 

File 

Input 

1 

xxxxxxx 

Stiffness or Flexibility 
Matrix 

MULTRNF 

2 

xxxxxxx 

Mass Matrix 

MULTRNF 

MERGRNP 

MASSRNF 

3 

M0DESVS 

Mode Shapes 

VIBRRNF 

4 

GSTIFvs 

Generalized Stiffness 

VIBRRNF 

5 

MxxxOAB 

Partitioned (Subset) 
Mode Shapes 

VIBRRNF 

6 

AMC or 
xxxxx 

Aerodynamic module 
Control Matrix 

AF10RNF 

DUBLRNF 

MACHRNF 

RH03RNF 

ADDIRNF 

7 

GFOghij 

or 

xxxxi j 

AIC Matrix (Unsteady 
generalized airforce 
matrices) 

AF10RNF 

DUBLRNF 

MACHRNF 

RH03RNF 

ADDIRNF 

0utput 

1 

xxxx 

FLEXAIR control matrix 

FLEXRNF 

2 

xxxxa j j 

Generalized force matrices 

FLEXRNF 


which include the residvial 
flexibility effects 
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PROGRAM METHOD 


FLEXAIR consists ot one primary overlay, named FLEXAIR, 
and six secondary overlays named EXPAR, DATPREP, 

REEFLXN, RESFL2CS, GENCBAR, and GENFf^R. 

705.3.1 OVERLAY (FLEXgLF, 1,0) - FLEXAIR 

FLEXAIR is the main program (primary overlay) of this 
ATXAS Utility Module. FLEXAIR establishes labeled 
common blocks and directs program flow through secondary 
overlays. 

705.3.2 gVERLAY (FLEXgLF, 1. 1) -EXPAR 

EXPAR is called to establish the values of the /EXPARS/ 
coiMDon block which contains the controlling variables 
for the execution of the FLEXAIR utility module by; 

a. Setting variables to default values. 

b. Deciphering and editing the execution parameters 
passed to FLEXAIR through the ATLAS labeled common 
block /CJ3NPARS/. Any errors detected will cause 
diagnostics to be printed as they are discovered 
and FLEXAIR execution to be terminated. 

c. Modifying values of variables in /EXPARS/ complying 
with the execution parameters picked 

705.3.3 (OVERLAY fFLEXgLF. 1 . 2) - DATPREP 

DATPREP is called to establish the working storage area 
and to read, prepare, and compute intermediate matrices 
needed for computing the residual flexibility and 
generalized force matrices. DATPREP goes through the 
following steps : 

a. Establish working storage area. 

b. Read the control matrix from the named random file 
written by the unsteady aerodynamic module for the 
K-values, BRF.F, SPAN, and Mach Number. 

c. Loop on number of K-values to read AIC matrices [a] 
from named random file written by the xinsteady 
aerodynamic modules, to check available working 
storage area, and write AIC matrix (full or 
partitioned depending on working storage available) 
on SCOORNF. 
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Q. Write K-value/Name of AlC matrix, [KVAL], on 
SCOORNP . 

e. Read mode shape matrix [0] from VIBRRNF, extract 
user node and freedom nuirbers forming matrix 
[NpDH], reposition mode shapes forming matrix [H], 
and write matrices [l^H] and [H] on SCOORNF. 

t. Read generalized stiffness [KSTIFF] from VIBRRNF, 
check for rigid body modes, and write matrix 
[GSTIFF] on SCOORNF. The next 5 steps are 
performed for the singular stiffness case only. 

g . Reorder and partition mode shapes [ H ] into 

~ I “T 

J. Sji L.. S.rz L 

I Hji I Hgg i 

1_ I _1 

such that [H?i] is non-singular. 

h. Wiite partition [hja] on SCOORNF. 

i. Compute [L] = and write matrix 

[L] on SCOORNP 

3 . Read mass matrix [M] from MERGRNF, MULTRNF, 

or MASSRNF and partition into 

I I I 

I 1 . Mi;» i 

I Mjj I M 22 I 

1_ I _1 

reflecting the partitioning of mode shapes 

[H]. 

k. Compute [U] = ([L]'^[M, 2 ]+[M 22 ])-i ([ L M, ^ ]) 

and write [U] on SCOORNF. 

Continue non-singular and singular stiffness case 
from here. 

l. Read stiffness matrix [K] from MERGRNF or MULTRNF 
and write stiffness [K] on SCOORNF. Perform the 
next step for the singular stiffness case only. 
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I I I 

ra. Est:ablish partitions | Kn I I reflecting 

I K*t I Kg* I 

1_ I _L 

the partitioning of mode shapes and write partition 
[Ki|] on SCOORNF. Perform the next step only when 
the subset indicator is on, otherwise equate index 
name of [H] to [HB]. 

n. Read partitioned (subset) mode shape matrix [0S] 

from VIBRRNF; extract user node and freedom niimbers 
forming matrix [N)20S], reposition mode shapes 
forming matrix [HBj, and write matrices [N^DS] and 
[HB] on SCOORNF. 

705.3.4 0VERLAY (FLEXOLF. 1.3l - RESFLXN 

RESFLXN, called to compute the residual flexibility 
matrix [C*] for the non-singular stiffness case, goes 
through the following steps: 

a. Read stiffness matrix [K] from SCOORNF and invert 
to [K]-*. 

b. Read generalized stiffness matrix [KSTIFF] and mode 
shapes [H] from SCOORNF. 

c. CcHnpute residual flexibility matrix [C*] by routine 
GENHRH: 

[C*] = [K]-» - [H][GSTIFF]-»[H]^ 

d. Write residual flexibility matrix [C*] on SCOORNF. 

705.3.5 0VERLAY (FLEXgLF, 1 ,4> - RESFLXS 

RESFLXS is called to compute the residual flexibility 
matrix [C*] for the singular stiffness case. RESFLXS 
goes through the following steps: 

a. Read matrix [L], matrix [U], and matrix [Kn] from 
SCOORNF. 

b. Compute intermediate result matrix [KT] by routine 
CALCK: 

[KT] = ([lKL][U]rCK»il([I]+[L3CU)) 

c. Invert [KT] to [KT]~*. 
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d. Read generalized stiftness [GSTIFF] and matrix 
[Hij] from SCOORNF. 

e. Compute intermediate result matrix [ CT, 1 by routine 
GENHKH: 

[CTg] = [GSTIFF]-» - [H|2 ]tGSTIFF]-»[H,2 

f. Read matrix [U] from SCOORNF. 

g . Compute residual flexibility matrix [ ] by routine 
CALCC2: 

[^ 2 ]= [-r]["2][i 

h. Write residual flexibility matrix [Cp] on SCOORNF. 

705.3.6 OVERLAY (FLEX0LF. 1,5) - GENCBAR 

GENCBAR is called to form the residual flexibility 
matrix [RFgj associated with the given partitioned 
(subset) mode shape node and freedom numbers. GENCBAR 
goes through the following st^s: 

a . Read user node and freedom number matrices [ ] 

and [ NObS ] for mode shapes and partitioned mode 
shapes, respectively, from SCOORNF. 

b. Form an array of row numbers of the residual 
flexibility matrix relating to the partitioned 
(subset' mode shapes by routine ROWNUM. 

c. Read residual flexibility matrix [ Cj ] from SCOORNF. 

d. Form the residual flexibility matrix [RF 2 ] relating 
to the partitioned mode shapes by routine FRMCBAR. 

e. Write partitioned residual flexxbility matrix [RFg] 
on SCOORNF over writing [Cg3 and using [ C 2 ] index 
name. 

705.3.7 0VERLAY (FLEX0LF, 1,6) - GENF0 R 

GENF0R is called to coKpute the generalized airforces 
with residual flexibility effects. GENF0R goes through 
the following s\.eps: 


■ 5 : 
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a. Establish sequential scratch files PLEXSC1* 
FLEXSC2, PLEXSC3, and PLEXSC4 for parti tiond 
matrices . 

b. Calculate density of air, p, for all given 
altitudes by routine AT62. 

c. Read matrix [KVAL] for K -values and name of AlC 
matrices. 

d. Setup the FLEXAIR control matrix [CJJNTRJ?L] and 
estciblish its values. Then write FLEXAIR control 
matrix [CJ3NTRi3L] on FLEXRNF. 

Loop on the number of K-values, NKVALUE. 

e. Read mode shapes [HB] and AIC matrix [a] (fvill or 
partitioned) from SCOORNF. 

f. Compute intermediate result: 

[V] = Ca][HB] 

g. Write matrix [V] on FLEXSC2 

h. Read residual flexibility matrix [Ce] or [RP?] and 
AIC matrix [a] from SCOORNP. 

i. Compute intermediate result: 

[W] = [a][Cp] 

j. Write matrix [W] on FLEXSCI 

Loop on number of Altitudes, NALT 

k . Compute constant : 


*/2Pb2(2nf) 



l . Compute [ E ] then decompose to upper and lower 
triangles: 

[£]=([!]♦ Y[W])-» 

= [ L/U ] decomposed by the routine 
CDEQZtM . 

m. Read matrix [V] from FLEXSC2 

n. Compute intermediate resiilt: 

[D] = [E][V] 
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o. Read mode shapes [HB] fron SCOORNF 

p. Calculate generalized force matrix: 

[D,3 = 

q. Write generalized force matrix [D^] on FLEXRNF. 

END of Altitudes loop. 

End of K -values loop. 

r. Drop and delete scratch files FLEXSCI^ FLEXSC2, 
FLEXSC3, and FLEXSC4. 

705.4 COMMON BLOCK USAGE 

Labeled common blocks are used to pass options, 
constants, counters, and smalx arrays between secondary 
overlays of FLEXAIR. The block names and the overlays 
in which they are defined are shown below. 


i. 

NAME 

_111x0) 

1 

(1» 1) 

1 

(1f2} 

(1.3J 1 


1 

L1,5)J 

(V61i 

1 

C0MPARS 

1 X 

1 

X 

1 

X 

1 1 


1 

I 

I 

1 

EXPARS 

1 X 

1 

X 

1 

X 

1 X 1 

X 

1 

X I 

X t 

1 

KERRjaR 

1 X 

1 

X 

1 

X 

i X 1 

X 

1 

X I 

X I 

1 

K0BUFP 

1 ^ 

1 


1 


1 1 


1 

I 

I 

1 

K0RNDM 

1 X 

1 

X 

1 

X 

I X 1 

X 

1 

X t 

X I 

i. 

PARTI 

1 X 

1 

X 

1 

X 

J L 


1 

L 

X I 


705.4.1 C0NPARS, KERRiZfR, K0BUFP, and KQRNDM are ATLAS system 
conmon blocks described in section 100.2 

705.4.2 /EXPARS/ contains the controlling parameters for the 
execution of tiie FLEXAIR utility module. The parameters 
are first set to default values, and then modified to 
comply with the parameters in the EXECUTE FLEXAIR 
statement. 

/PARTI/ contains the number of words available in 
working storage, the number of partitions, and the size 
of the partitions of the various matrices that need to 
be partitioned. 
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FLUTTER PROCESSOR 




706.1 GENERAL INFORMATION 


706.1.1 Purpose 

This module computes the eiyensolution of a flutter 
matrix from stiffness, structural damping, air forces, 
and mass or inertia input matrices. These matrices may 
be modified by the user '*changeset*‘ instructions. The 
solution is based on the parametric method of reference 
706-1. By solving the root-sorting problem, 
interpolation for flutter crossings and automatic 
plotting can be accomplished. Flutter in fluids other 
than air may also be simulated. The velocity -damping, 
V-g, and velocity-frequency, V-f , curves can be 
optionally plotted for each altitude investigated. When 
requested, the normal and adjoint eigenvectors are foxmd 
at flutter and at specified reduced frequencies. 

706.1.2 Access 


This technical module is called from the ATLAS Control 
program by the EXECUTE FLUTTER (plist) statement, (sec. 
222, ref. 1-1). 

706.2 MATRIX ACTIVITY 


Name 

Input 

1 ULCSi 

2 XXX XX 

3 xxxxxyy 

H GMASSxx 

5 GSTIFxx 

xxxxxxx 


Description 


File 


Input data for cases 
Air force control 
Unsteady ed.r forces 
Generalized mass matrix 
Generalized stiffness matrix 
Generalized mass or stiffness 


DATARNP 

ADDIRNF 

ADDLRNF 

VIBRRNF 

VIBRRNP 


Output 

1 Fl<iupvj 

2 FPiupvjx 

3 FLBCij 

4 Fiupvjw 

5 FPiupvj 


Print output matrix 
V-g plot matrix 
Flutter Solution Control 
Eigensolution matrices 
Plot control matrix 


FLUTRNF 

FLUTRNP 

FLUTRNF 

FLUTRNF 

FLUTRNF 


A detailed description of the matrix formats is contained in 
reference 1-2. 


‘ J. 
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PROGRAM METHOD 


The FLUTTER processor consists of a primary overlay, 
FLUDETN, and two secondary overlays, FLUTRD and FLUS0L. 

706.3.1 0VER L AY (FLUT0LF. 1.0) -FLUDETN 

This program opens the required named random files: 
ADDIRNF, VIBRRNF, DATARNF and FLUTRNF. It calls FLUTRD 
to interpret the EXECUTE FLUTTER statement. For each 
flutter data case identified, it calls FLUS^. 

706.3.2 OVERLAY fFLUT0LF. 1.1) -FLUTRD 

a. Reads and interprets the input data specified in 
the EXECUTE FLUTTER statement. 

b. Checks data validity. 

c. Reads the control matrix of the generalized air 

force matrix on file ADDIRNF and extracts data 
constants: reference length, Mach number, mrniber 

of degrees of freedom, altitude for residual 
flexibility option and the number of reduced 
frequencies for which air force matrices exist. 

d. Checks the utility matrix table for the presence of 
the generalized mass and stiffness matrices on 
VIBRRNF. 

e. Confirms the presence of the general flutter data 
iiBtrix on DATARNF for each case identifier, and the 
presence of tlie last air force matrix on ADDIRNF. 

f. Flints the numoer of fatal errors found and 
appropriate diagnostics. 

700.3.3 0VERLAY (FLUTgLF. 1,2) -FLUS0L 

This program performs the flutter eigensolution for each 
flutter case defined. 

a. Reads the general flutter data matrix created by 
the inpuc preprocessor . It then extracts the 
nominal case data and the pointers to the changeset 
data. 

For each changeset 

b. Reads the generalized mass and stiffness matrices 
from VIBRRNF. 
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c. Perforins element changes as specified by the 
Chang eset instructions, on the generalized mass, 
stiffness and structural damping matrices. 

For each retention vector set 

d. Forms the complex generalized stiffness matrix 
according to the retention vector set. Finds the 
number of rigid body modes and rearranges the 
retention vertor set. 

e. Forms the inverse of the complex stiffness matrix. 

For each altitude 

f . Computes the air density and finds the still air 
coupled modes when requested. 

g. For each reduced frequency, reads the airforce 
matrix from ADDIRNF and forms the flutter matrix 
according to the current retention vector set. 
Solves for eigenvalues of the flutter matrix using 
the method of Laguerte iteration. 

h. Obtains flutter roots and crossings by linear 
interpolation on the V-g curve. When requested, 
computes the normal and adjoint eigenvectorr^". at 
flutter points and/or at specified reduced 
frequencies. 

i. Writes matrices FRiupvj, Fiupvjw and FPiupvj on 
FLUTRNF, for printina, eigensolution data and 
plotting , respective, y . 

j. If a matched point solution is requested, the next 
altitude is conp>uted from the lowest flutter speed 
found . 
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70b. COMMON BLOCK USAGE 

706.4.1 /K£RRj2R/ ATLAS System conunon blocks, 

/C^FNPARS/ described in section 100.'’ 

/KQRNDM/ 

706.4.2 /XQCJ3M1/ Input data for title and headings 
/XQC0M2/ Data from EXECUTE FLUTTER Statement 
/XQCVM3/ Flutter roots data 

/XQCfiMtt/ Flutter Matrix Pointers and Options 
/DAC^TMl/ Eigensolution data constants 
/ElGCfSM/ Lagxierxe iteration eigensolution data 


1 

J_ 

0VERIAY: 

FLUTWLP 

J. 

L 

NAME 1 

n^O) i JL1,J1 

-i. 

(1»2) 

J. 

1 

C0NPARS 1 

1 X 

1 


1 

1 

L 

K£KR$9R 1 
KQRNDM 1 

X 1 X 

X ( 

1 

-JL 

X 

1 

_L 

1 

XQCjaMl 1 

i X 

1 

X 

1 

1 

XQCpM2 1 

i X 

1 

X 

1 

1 

XQCfXiS 1 

1 X 

\ 

X 

1 

1 

XQCJ3M4 [ 

1 

1 

X 

1 

1 

DAC^aMl 1 

1 X 

1 

X 

1 

1 

E1GCQ>M 1 

1 

1_ 

X 

_L 
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707. INTERPOLATION PROCESSOR 


707.1 


GENERAL INFORMATION 


707.1.1 Purpose 


Generates an array ot interpolating function 

coefficients for one of four types of representations: 

a. Surface spline - where the interpolating function 
is the equation of an infinite pinned plate. 

b. Motion axis - where the interpolating functions are 
cubic splines along a continuous planar curve. 

c. Polynomial - where the interpolating function is 
represented by an nth degree polynomial. 

d. Motion point - where the interpolating function is 
a motion transformation from a single point . 

e. Beam spline - where the interpolating functions are 
cxibic splines in arc length along a continuous 
planar curve called a beam. A set of these beams 
form a planar or nearly-planar surface. 


707. 1.2 Access 


707.2 


This module is called from the ATLAS control pr'^ic. < by 
the EXECUTE lNTERPj3LATlJ2W (plist) statement (sec.\.U, 
ret . 1-1) . 

MATRIX ACTIVITY 



Name 

Description 

File 


Input 

1 

SMdddvs 

Subset mode matrix 

VIBRRNF 

2 

KNJ^ALTa 

Nodal data matrix 

DATARNF 

3 

KNClOOa 

Nodal correspondence table 

DATARNF 

4 

KL0Cjaj?a 

Local coordinate system 
matrix 

DATARNF 

5 

SNKddda 

Nodal subset matrix 

DATARNF 

6 

SFdddvs 

Subset freedoms and node 
numbers 

VIBRRNF 
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output 

1 Cddd(? Array of coefficients INTERNF 

2 INTABLE INTERNF 

A detailed description of the matrix formats 
is contained in reference 1-2. 


707.3 PROGRAM METHOD 

The INTERPJ3LATli<5N modu’ • consists of a primary overlay, 
INTEPRG, and seven secondary overlays, DIEPAR, DATPREP, 
DATPRE2, SURFSPL, P^LY, and M^I|3NP. 

707.3.1 0VERLAY(INTEgLF.1.O) ~ INIEPRG 
Controls the flow of execution. 

a. Establishes module common blocks and sets 
parameters to default values. 

b. Controls the logical flow of the secondary overlay 
calls for the desired types of representation a^^ 
indicated on the EXECUTE INTERPOLATION statement. 


707.3.2 OVERLAY flNTEOLF. 1.11 - DIEPAR 

Sets execution parameters. 

a. Establisnes the values of local variables. 

b. Interrogates /CONPARS/ and transmits the parameters 
to the other overlays via the /PRGPAR/ common 
block . 

c. If errors are fouiid in an execution parameter, 
DIEPAR writes a diagnostic message and prohibits 
the interpolation to which it applies. 

707.3.3 OVERLAY (INTEOLF, 1.21 - D’.TPREP 

Prepares mode shapes and coordinates. 

a. Reads the subset mode shapes, subset freedom and 
node numbers, nodal correspondence table, and nodal 
data matrix into core. 

b. Establishes the degrees of freedom as specified by 
the user or as i.idicated by the .uode shapes matrix. 
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c. If nodes are defined in an analysis frame, DATPREP 
reads t-he analysis frame description from the local 
coordinate system matrix. 

d. Picks up the user node number from subset freedom 
and node numbers matrix and calls NCUIR for 
associated internal node number and pointer to 
nodal data matrix. 

e. Using this pointer, DATPREP picks up the node's 
global coordinates. 

f. If an analysis frame indicator is on, DATPREP 
transforms the node coordinates from global frame 
to analysis frame . 

g. Extracts the row of subset mode shapes associated 
with this retained freedom and places it in matrix 
[<!»]» 

h. Steps d-g are repeated for all freedoms. 

i. Writes the mode shapes, [4>], coordinates, and 
associated user node numbers onto SCOORNF. 

707.3.4 0VERLAY(INTE0LF.1,3) - SURFSPL 

a. Reads mode shapes, [<>], and increases row dimension 
by three (required by PLATEI routine) . 

b. Reads global coordinates, [XYZ], and extracts X- 
coordinates, and Y-coor dinates . 

c. Calculates the length of the coefficient matrix and 
allocates core for it. 

d. Calls PLATEI to generate the surface spline array 
of coefficients, usirig as the interpolating 
function the small deflection equation of an 
infinite pinned plate. 

e. If the analysis frame indicator is on, SURFSPL 
appends the rotation matrix and origin location to 
the coefficient matrix. 

f. Writes the coefficient matrix on random tile 
INTERNF. 

g. Appends to the interpolation table matrix the 
coefficient matrix index name, size, and number of 
inodes, and writes the table on random file INTERNF. 
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707.3.5 gVERlAY(INTEgLF.1.4) - MflTlgNA 


a. Reads mode shapes, [4>], coordinates, [XYZ], and 
user node nunber array. 

b. Deletes identical node mxnbers and coordinates from 
node and coordinate arrays. 

c. Establishes the out -of -plane axis and picks up the 
in-plane coordinates. 

d. Orders y-coordinate values in monotonic increasing 
sequence using routine 0RDER. 

e. Establishes the node location and motion arrays. 

f. Establishes the definition point location and 
imaginary reference line slope arrays. 

g. Calculates the length of the array of coefficients 
and allocates core for it. 

h. calls to generate the motion axis array of 

coefficients using as the interpolating function a 
cubic spline along a continuous planar curve. 

i. If the analysis frame indicator is on, Mfn^I0NA 
appends the rotation matrix and origin location to 
tJje array of coef ficients. 

j. Writes the coefficient matrix on random file 
INTERNE . 

k. Appends to the interpolation table matrix the 
coefficient matrix index name, size, and number of 
modes for this type of r^resentation and writes 
the table on random file INTERNE. 

707.3.6 CH^ERLAY(1NTEQELF,1.5> - P0LY 

a. Calculates the length of the coefficient matrix and 
allocates core for it. 

b. Inserts the following information in the 
coefficient matrix 

1. number of elements in the array 

2. 1OHP0LYNJJMIAL for type of representation 

3. pointer to transformation matrix 
(at.^lysis frame) 
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4. number of inodes 

5. degree of polynomial 

6. coefficients for the polynontial 

c. Writes the coefficient matrix o xandont file 
INTERNF. 

d. Appends to the interpolation table matrix the 
coefficient matrix index name, size, and number of 
inodes for this type of representation and writes 
the table on randcm file INTEPNF. 

707.3.7 OVERLAY (INTEgLF, 1,6) - MgTIgNP 

a. Reads mode shapes, [^], and coordinates, [XYZ]. 

b. Establishes motion arrays and moves values front the 
mode shapes matrix, 

c. Calculates the length of the coefficient matrix and 
allocates core for it. 

d. Calls MJJTIJSNP routine to generate the motion point 
coefficients, using as the interpolating function a 
rigid trcinsfer of motions of a datum point. 

e- If the analysis frame indicator is on, M^TTI^NP 

appends the rotation matrix and origin location to 
the coefficient matrix. 

f. . Writes the coefficient matrix on random file 

INTEEINF. 

g. Appends to the interpolation table matrix the 
coefficient matrix index name, size, and number of 
modes for the type of representation and writes the 
table on random file INTERNF. 

707.3.8 gVERLAYgNTEgLF, 1,7) - DATPRE2 

Prepares the node coordinates and generates the identity 

mode shapes for the AIC option. 

a. Reads the nodal subsets, nodal correspondence 
table, and nodal data matrix into core. 

b. If nodes are defined in an analysis frame, DATPRE2 
reads the local coordinate system matrix and picks 
up the analysis frame descripticxi. 
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c. Establishes the degrees of freedom either as 
specified by the user or by default. 

d. Establishes the size of coordinate and identity 
modes matrices. 

e. Loops on the number of nodes, steps f through h. 

f. Picks up the user node number and pointer to nodal 
data mtrix. 

g. Picks up the node's global coordinates. 

h. If the analysis frame indicator is on, 0ATPRE2 
transforms the node location from global frame to 
analysis frame. 

i. Writes coordinates and nodes on SCOORNF. 

j. Generates identity modes matrix and writes it to 
SCOORNF. 

707.3.9 0VERLAY(INTEgLF,1,1Ol - BEAMSPL 

This overlay generates the coefficient matrix for the 

beam spline method. The program will perform the 

following operations: 

a) Read mode shapes, coordinates, node mmbers, and 
nodal correspondence table. 

b) Estciblish valid D0F and out-of -plane indicator. 

c) Establish x-coordinate, y-coordinate, z- 
translation, x-rotation, and/or rotation arrays 
(position numbers} with its values. 

d) Establish pointer array of 1) pointer to row number 
where first node starts, 2) ntimber of nodes on Ith 
beam, and 3) indicator for extrapolating inboard 
eind/or outboard. 

e) Loop on number of beams. 

f) Read Ith beam subset. 

g) Establish user node number array, niunber of nodes, 
and pointer to Ith beam location in modes matrix. 
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h) Pick up X- and y-coordinates for each node in the 
I til beam. 

i) Order y-coordinates in ascending order. 

j) Loop on number of nodes to pick up Tz, Rx, cind/or 
Ry by searching modes matrix for a matching user 
node uximber. 

k) Lnd of beam loop. 

l) Calculate length of coefficient array. 

m) call subroutine BiAMI generating all information on 
the coefficient array. 

n) Establish table matrix and write on INTERNF 

o) Establish auxiliary ID and identification of 
coefficient array and %nrite on INTERNE. 


707.4 COMMON BLOCK USAGE 


I NAME 
I 


OVERLAY I INTEgLF 


1,0 I 1,1 I 1,2 I 1,3 I 1,4 I 1,5 I 1,6 I 1,7 I 1,101 


1 

KERRJSR 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

I 

L0NPARS 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

I 

X 

1 

X 

1 

X 

1 

KQBUFP 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

KQRNDM 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

PRGPAR 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

F0LYq9M 

1 

X 

1 

X 

1 

X 

1 


1 


1 

X 

1 


1 

X 

1 

BEAMQ«4 

1 

X 

1 

X 

1 


1 


1 


1 


1 


1 

X 


707.4.1 /KERRjaR/,/C|««PARS/,/DQBUFP/,/KQRNDM/ are ATLAS 
system common blocks, described in section 100.2. 

707.4.2 /PRGPAR/ - Contains parameters which control the 
execution of the module. Values are established 
by defaults and the parameters on the EXECUTE 
INTERP0LATIt^' statement. 
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I. ISET - Stiffness data set munber 

XSTAGE - Boundary condition stage number 

NAMSUB - index name for mode subset 

IMBTOilD - indicator for method of 

interpolation 
= 1, surface spline 
-2, motion axis 
=3, polynomial 
= 4, motion point 

ICHECK - indicator for checkout 

printing 

= 0, no printing 
= 1, checkout printing 
IVSET - Vibration set ntimber 

ITX - freedom indicators-x,y,z translation, 

ITY x,y,z rotation 

ITZ =0, not selected 

10. IRX =1, selected 

II, IRY 

12. IRZ 

13. NDEF - number of definition points and 

angles (for motion axis only) 

14. IDEFPTS (40) -user node nunber defining the Ith 

motion axis definition point (for 
motion axis only) 

15. ANGLES (40) -angle of reference line at Ith 

definition point (for motion 
axis only) 

16. IRKIN -error return indicator from DIEPAR 

= 0, no error 

=1, error detected in execution 
parameters tor this subset, 
continue on with next subset 
data. 

17. 1C0S -pointer to the last element of 

/C)?NPARS/ that was picked up for 
the current subset 

18. ITRAN -transformation matrix indicator 

= 0, no transformation 
=1, transformation matrix available 
in matrix RpTRAN 

19. RJ3TRAN (3,4) -rotation and translation 

transformation matrix. 

Transformation is from local 
to global. Ihe last column is 
the translation matrix. 
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/PJJLYCJW/ ~ contains the polynontlal representation 
coefficients which are established by the EXECUTE 
INTERF(3Lh.TI(m specifications. 

1. NM0DBS - the number of polynomial mode 

shapes requested. 

2. CJ8EF(6,6,5) -the polynomial coefficients for 

up to 5 mode shapes. 

CjJEP (!♦ 1 1) is the coefficient 

of the x**I,ye*J term (0<I,J<4) 

/BEAMCH2M/ - contains the beam spline variable 
parameters of which the values are established 
by the EXECUTE INTESPiTlATIiTN Statement. 

1. NBEAM - Nunber of beams (or nodal subsets 

forming beam nodes) 

2. IBEAM(IOO)- An array of information tor each 

beam. A typical word contains 

the following information pertaining 

to the 1th beam. 

Bits 59-18 - Index name of nodal 

subset associated with 
the Ith beam. 

Bits 17-2 - Not used. 

Bit 1 - Indicator for inboard 

extrapolation : 

= 0, Do not extrapolate 
= 1, Extrapolate inboard 

Bit 0 - Indicator for outboard 

extrapolation : 

= 0, Do not extrapolate 
= 1, Extrapolate outboard 


I 
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708 


LOADS PROCESSOR 


708. 

708. 


708 

708 


1 GENERAL INFORMATION 

1.1 Pxirpose 

1. Generate complete loadcase correspondence table tor 
all requested user ID*s. 

2. Produce direct nodal loads in analysis coordinate 
system. 

3. Produce specified nodal displacements from all 
sources . 

4. Calculate statically equivalent nodal loads 
(consistent nodal loads for BRlCKs) from element 
pressure loads, and output these in the node 
linalysis system. 

5. Calculate consistent nodal loads from nodal and 
element thermal loading, and output these in the 
node analysis system. 

6. Generate loads and displacements tor combined 
loadcases . 

7. Calculate the resultants for all loadcases 
requested (basic or combined) , 

8. Calculate nodal accelerations due to rotational 
inertia loads emd multiply them by element mass 
matrices to compute nodal forces. 

1.2 Access 

This module is called from the ATLAS Control program by 

the EXECUTE Lj2B^DS (plist) statement (sec. 234, ref. 1-1). 


2 Matrix Activity 



Name 

Description 

F^le 

Input 

1 

LC(Z»i3Rba 

Load Case Correspondence 

DATARNF 

2 

LNOOIba 

Direct Nodal Loads 

DATARNF 

3 

LEOOIba 

Element Distributed Loads 

DATARNF 

4 

LTOOIba 

Nodal Thermal Loads 

DATARNF 

6 

LTLCCba 

Thermal Load Case 

DATARNF 

6 

ura-LTba 

Correspondence 

Nodal Thermal Load Index 

DATARNF 

7 

LEDIRba 

Element Load Directions 

DATARNF 

8 

LDOOIba 

Specified Displacements 

DATARNF 

9 

LC(Z(MBba 

Combined Load Cases 

DATARNF 

10 

KCp^ba 

Load Case Corr . (from BC) 

DATARNF 
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11 

KDOOIba 

Specified Displacements 
(from BC) 

DATARNF 

12 

KLCrOOa 

Element Correspondence 

DATARNF 

13 

KSFOOIa 

Element Data 

DATARNF 

14 

KNCIOOa 

Nodal Correspondence 

DATARNF 

15 

KI^ALTa 

Nodal Data 

DATARNF 

16 

KLfifC0fia 

Local Coordinate Data 

DATARNF 

17 

KMELNpa 

Element Nodal Data 

DATARNF 

18 

UtpTNba 

Rotational Inertia Loads 
Matrix 

DATARNF 

19 

MAOOOIa 

Element Mass Matrices 

MASSRNF 

20 

LUOOOba 

Element Thermal Loads 

DATARNF 

21 

GKSOOIa 

Detailed Geometry 

DATARNF 

22 

GPOOOIa 

Element Stress 

STIFRNF 

23 

KAOOOIa 

Element Stiffness 

STIFRNF 

Output 

1 

RSULTba 

Resultant Matrix 

L0ADRNF 

2 

LAOOIba 

Nodal Loads Matrix 

L0ADRNF 

3 

OC^Rba 

Load Case Correspondence 

I^ADRNF 

4 

ISCO Iba 

Initial Stress Control 

I^ADRNF 

5 

ISOOIba 

Initial Stress 

I^ADRNF 

6 

DAO 0 Iba 

Specified Displacements 

I^ADRNF 

7 

ELC^ba 

Element Ten 5 >erature Control 

I^ADRNF 

8 


Element Temper atxire 

I^ADRNF 

9 

LFAV00ba 

Load Freedom Activity Vector 

L0ADRNF 


A detailed description of the matrix formats is 
contained in reference 1-2- 


708.3 PROGRAM METHOD 

The LjZADS module consists of a primary overlay, MUTHALD, 
and nine secondary overlays, BEGIN, Cp$3K, NpDE, DISP, 
ELEM, THERM, R(2TT, MUITJ3T and FIN. 

708.3.1 OVERLAY (LOADgLF. 1,0) - MUTHAID (FORTRAN) 

a) loops through secondary overlays 

b) carries module comnon blocks 

708.3.2 0VERLAY (LOADOLF . 1 . 1 ) - BEGIN fSNARK) 

a) establishes values of the /NUGGETS/ common block. 
This is done by interrogating the /C0NPARS/ block. 

b) establishes the values of the /SETCJ3M/ common block 
bj' determining requested SETs and STAGES from 
/CJ3NPARS/ 
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c) prints opening conraent 

d) puts a list of requested loadcases on SCOORNF if 
specific loadcases are requested through /CJ3NPARS/. 
This list goes out with the name 2HLC. 

e) When recalled for each SET and STAGE, resets the 
values of the appropriate variables in common 
blocks /NUGGETS/ and /SETCpM/. 

f) In the event of erroneous information being passed 
in /CJJriPARS/, BEGIN prints a message, increments 
KERK^R and terminates processing. 

708.3.3 0VERLAY(L0AD0LF, 1,2) - CggR (SNARKl 

a) Produces the loadcase correspondence table for the 
current SET and STAGE. Ihis table is the 
intersection of the requested loadcases with the 
union of the loadcase correspondence tables from 
the boundary condition data (B.C.) preprocessor and 
the LOADS preprocessor . 

b) Produces a scratch combined loadcase matrix which 
is written on SCOORNF with index name DC0MBXX. The 
format of this matrix is explained in comments in 
the code of subroutine DC0MBUP. 

c) Prints a list of loadcases being processed for this 
SET and STAGE. 

708.3.4 0VERIAY(L0AD0LF,1,3) - N0DE fSNARK) 

a) Checks if there are any nodal loads requested for 
this SET/STAGE. 

b) Reads in nodal data, local coordinate data, 
loadcase correspondence, RSULT matrix, and the 
scratch combined loadcase matrix. 

c) Loops through the sources of nodal loads and reads 
the source loadcase correspondence table and nodal 
loads data. 

d) Calls DUST to calculate the nodal loads. 



708.3.4.1 DUST(F(3RTRAN subroutine) 


a) OUST reads the incoming nodal loads and converts 
the loadcase to the internal loadcase ntunber. If 
this loadcase is not a component of a requested 
loadcase, these loads are ignored. 

b) Uie loads are rotated to the global system and the 
resultant is incremented, for this loadcase and any 
combined cases of which it is a component. 

c) Unless user requested resultants only, the load is 
rotated to the node analysis system. 

708.3.5 gVERLAY{LgADQLF.1.4l - DISP (SNARK) 

a) Checks to see if there are any specified 
displacements for this SET/STAGE. 

b) Reads in loadcase correspondence and scratch 
combined loadcase matrix. 

c) Loops through the sources of specified nodal 
displacements (L^ADS preprocessor and B.C. data 
preprocessor) and reads in source loadcase 
correspondence table and displacements. 

d) Calls FRIG to move displacements to output matrix. 

708.3.5.1 FRIG (Fortran subroutine) 

a) FRIG reads the nodal displacements and converts the 
loadcase names to internal load numbers. If the 
loadcase has not been requested euid is not a 
component of a requested combined case, this 
displacement is skipped. Otherwise, the 
displacement is output for this case and any 
combined load cases. 

708. 3. b gVERLAY(L0ADgLF.1.5) - ELEM (SNARK) 

a) Checks it there are any pressure loads for this 
SET/STAGE. 

b) Reads in element data, nodal data, local coordinate 
data, loadcase correspondence, resultant matrix, 
and scratch combined loadcase matrix. 
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c) Loops through sc rces of pressure loads and reads 
in source Icadca. e correspondence table, element 
pressure data, aid element pressure directions. 

d) Calls SUBEL to calculate the equivalent nodal 
loads. 

708.3.6.1 SUBEL (FORTRAN subroutine) 

a) Loops thxough the element pressure data until it 
conies to a valid loadcase (either requested or a 
component of a requested case) . 

b) Sets up the element geometry in common blocK 
/USUEL/. BRICKS require subroutine BRKGE^, and 
common block /BRICKLE/. 

c) Reads element pressures and pressure direction 
vector from input matrices into /USUEL/. 

d) Calls individual element routines to compute 
statically equivalent nodal loads (for BRICK, 
consistent nodal loads; see comments in GLJTOPR and 
MUG) • These routines also confute the element *s 
contribution to the loads resultant. 

e) Increments resultant for appropriate loadcases. 

f) Unless the user requested resultants only, rotates 
nodal loads to analysis system and writes them out. 

708.3.7 Thermal Loads 


Thermal loads are calculated in a series of foiu: 
overlays. 

OVERLAY (L(?ADJ3LF, 1,20) - THERMEL (SNARK) 

This overlay reads in both nodal and element thermal 
loads matrices form DATARNF and combines and reformats 
the information to: 

1. Produce ELC^ba and ELOOOba for use by design. 

2. Produce scratch matrices with element teirperature 
data for use by the following three overlays. 

(3VERLAY(L0ADJ2LF,1,21) - TriERMV (SNARK) 
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Computes initial stress and equivalent nodeJ. loads for 
and BEAM elements using element stress and stiffness 
matrices from stiffness. 

OVERLAY (L0AD0LF, 1,2 2) THERMU (SNARK) 

Computes initial stresses and equivalent nodal loads for 
the SPAR, GPLATE, BRICK, AND S10D elements. 

j9V£RLAY(L0AD^,1,23)TH£RHU2 (SNARK) 

Computes initial stresses and equivalent nod?!( loads for 
the PLATE, C(2^R, CPLATE and 0C)2rVER elemen 

708.3.7.1 CALJJRIE (F^TRAN subroutine) 

a) Loops through elements calling BTU to set up 
geometry tor each BRICK. 

b) Loops through requested thermal loadcases for each 
BRICK calling STRAIN to set up vector of thermal 
strains . 

c) Calls TBRICK to generate consistent nodal loads and 
initial stresses. 

d) Increments resultant and, unless \iser requested 
resultants only, rotates loads to analysis system. 

708.3.8 flVERLAY(L0APgLF.1.7) - ROT (SNARKl 

Calculates nodal accelerations and writes them on 
scratch 

a) Sets up a local scratch matrix LCRALab which 
contains all information needed from LR(FTNba for 
the calculation of nodal accelerations. The 
stibroutines T0TLRJW and R^JTCNTR set up this scratch 
matrix. 

b) Calculates the nodal accelerations in the FORTRAN 
stibroutine ACCRfFT where an acceleration control 
matrix ACC^ba and acceleration matrices ACOOIba 
are created. Subroutines AGLLIN and AGLAN6 are 
used to compute linear and angular accelerations, 
respectively. 

c) Processes combined loadccises in the routine 
C0MBR0T. 


A 
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708.3.9 


gVERLAY(L0AD0LF.1.1O) - MULR0T (SNARK) 


Calculates nodal forces by multiplying nodal 

accelerations and element masses. 

a) Modify LCRALab in the roxitine FMAbT for use later 
on. 

b) Set up pointers for multiplication in the rojtine 
MULSET. Also set up loadcase ID data. 

c) Compute nodal forces in the routine MULD0, using 
MAMULT as the multiplication tool and MAEXPND as a 
tool to expand the lower triangular mass matrices 
into rectangular matrices. 

d) Combine loadcase ID data and nodal forces in the 
routine LAR0T. Also update the re.ultant matrix 
RSULTba . 

708.3.10 0VERLAYfL0AD0LF,1,77) - FIN (SNARK) 

a) Outputs the final resultant matrix to L0ADRNF and 
prints it. 
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I NAME 1(1,10)10,20)1(1.21)1(1,22)1(1,23)1(1,77) 


I/CJ3NPARS/1 X X X X X 

I /"ERR0R/ I X X X X X X 

l/KgBUFP/ I X X X X X 

l/KQRNDM/ 1 X X X X X X 


l/NUGGETS/l X X X X X X 

l/SETCjaM/ I 
I /USUEL/ I 
I /BRICKLE/ 1 

I /MAC^/ I X X X X X 

I /H0TS/ I X X X X 

l/ARMYR^rP/l 
l/MULPARS/l X 


708.4.1 /KERRJ3R/,/C)iJNPARS/,/KQBUFP/,/KQRNDM/ are ATLAS system 
common blocks, described in section 100.2. 
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708.4.2 LOADS Processor Conanon Blocks 


/NUGGETS/ is used throughout the module. It contains 
bufter sizes, matrix names, and control parameters. It 
is initialized by BEGIN. 

/SETCjav preserves information for BEGIN as to which 
SETs and STAGES have been requested but not yet 
executed . 

/USUEL/ is used by ELEM to carry element pressiire 
loading information such as nodal geometry, pressxire 
values, and nodal loads. 

/BRICKLE/ is used by the BRICK pressure loading routines 
BRKGEiaM, GLpBPR, and MUG, to carry additional BRICK 
information not kept in /USUEI/. 

/MAC^M/ is used by the ATLAS matrix multiply routine 
MAMULT. 

/ri^fTS/ is used by THERM and its subroutines to carry 
element gecanetry, thermal strains, nodal teri 5 )eratures , 
nodal loads, and other information needed to compute 
thermal loads. 

/ARMYR^/ is used by R^, ACCR0T, and CjaMERJW to carry 
information on the number of loadcases and nodes and 
matrix row indices. 

/MULPARS/ is used by MULR^TT, MULSET, and MULD0 to pass 
data on the number of loadcases, nodes, matrix indices 
and partition nxambers, and input/output control. 



709. MACHBOX PROCESSOR 


709.1 GENERAL INFORMATION 

709.1.1 Purpose 

The MACHBj9X nodule calculates unsteady aerodynamic 
loadings on coplanar or non-C(^lanar surfaces in 
supersonic flow. The loadings are represented by a 
generalized air force matrix «diich is tised by other 
ATLAS modules to provide a flutter solution (ref. 709- 
1 ). 

709.1.2 Access 

This module is called from the ATLAS control program by 
the EXECUTE MACHBpX (plist) Statement (sec. 236, ref. 1- 
1 ). 


709.2 Matrix Activity 


Input 

1 

2 


Name 


BfUXi 

Cddd 


I nput/Out put 


1 

2 

3 

4 

5 

6 

Output 


AICCeee 

AICCINDX 

AICMeee 

AlCPeee 

AlCWeee 

AlCVeee 


Description 


Nachbox input data 
Interpolation coefficient array 


Velocity pot^tial AIC array 

AIC index array 

Spatial AIC pointer array 

Planar AIC array 

Upwash AIC ARRAY 

Sidewash AIC array 


File 


DATARNF 

INTERNF 


MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 


1 

2 

3 

4 


6 

7 


ACMi 3 Control matrix 

ACNijkl AIC index pointers 

BLnijkl Box lifts 

B0XijkT Box code array for nonplanar 

tail if present 

Bi^XijkW Box code array for wing (and 
coplanar tail if present) 
CMnijkl Sectional moments 

DWPijkl Normal wash pointers 


MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 

MACHRNF 
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8 

EXPij 

Comnon block array containing <.ll 
input data and ej^cution 
parameters 

MACHRNP 

9 

GACxjkl 

Generalized aerodynamic 
coefficients (real) 

MACHRNF 

10 

GCIijkl 

Generalized aerodynamic 
coefficients (imaginary) 

MACHPNF 

MACHRNF 

11 

GPOijkl 

Generalized forces 

MACHRNF 

12 

ISPijk 

Planform col\snn pointers 

MACHRNF 

13 

LNni jkl 

Wing (Wing -Tail) lower surface 
normal wash 

MACHRNF 

14 

LThijkl 

Non-coplanar tail ICMer surface 
normal wash 

MACHRNF 

15 

M0nijkl 

Mode sieves and deflections 

MACHRNF 

16 

MPTijk 

Planform row pointers 

MACHRNF 

17 

PCnijkl 

Pressure difference coefficients 

MACHRNF 

18 

PSTijkl 

Subdivided normal wash pointers 
for tail 

MACHRNF 

19 

PSWijkl 

Subdivided normal wash pointers 
for wing 

MACHRNF 

20 

SACijkl 

Smoothed generalized aerodynamic 
coefficients (real) 

MACHRNF 

21 

SBni jkl 

Smoothed box lifts 

MACHRNF 

22 

SCIijkl 

Smoothed generalized aerodynamic 
coefficients (imaginary) 

MACHRNF 

23 

SFOijkl 

Smoothed general forces 

MACHRNF 

24 

SLni jkl 

Sectional lifts 

MACHRNF 

25 

SMnijkl 

Smoothed sectional moments 

MACHRNF 

26 

SPni jkl 

Smoothed pressure differential 
coefficients 

MACHRNF 


SSni jkl 

Smoothed sectional lifts 

MACHRNF 

28 

STni jkl 

Non-coplanar tail subdivided 
normal wash 

MACHRNF 

29 

SUni jkl 

Wing (Wing-Tail) subdivided normal 
wash 

MACHRNF 

30 

SVni jkl 

Smoothed velocity potentials 

MACHRNF 

31 

UNni jkl 

Wing (Wing-Tail) upper surface 
normal wash 

MACHRNF 

32 

UTnijkl 

Non-coplanar tail upper surface 
normal wash 

MACHRNF 

33 

VPnijkl 

Velocity potentials 

MACHRNF 

34 

WSnijkl 

Off planform wash samples 

MACHRNF 


A detailed description of the matrix formats 
contained in reference 1-2. 

is 
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709.3 PROGRAM METHOD 

The MACHB^ module consists of a primary overlay and 
eight secondary overlays. 

709.3.1 OVERLAY (MACH0LF. 1.0) - CgNTRgL 

COt4TRJ2L*s fxinction is to control and direct the calling 
sequence of the secondary overlay. In additic:.. i‘. 
checks the error return from each secondary overlay and 
determines what recovery is to be used if an error is 
encountered. 


709.3.2 OVERLAY (MACH0LF . 1 , 1 ) - DATAPP 

DATAPP first examines the /CONPARS/ ccmmon block for the 
execution parameters. The data case xnput information 
specified on the execution card is then read from 
DATARNF. A comprehensive error analysis is con^Jleted. 

If no errors are found, execution continues. 

709.3.-3 OVERLAY rMACHOLF. 1.2) - GEOMBX 

Program GEJ®1BX processes all of the geometry data. 
Leading and trailing edge data is tr<insfcrroed to a non- 
dimensional coordinate system. Planform and diaphragm 
box code patterns are determined in subroutines BXCDPF 
and BXCDI. The fractional on-planform portion of all 
boxes cut by a planform edge is determined by subroutine 
GMAREA, which in turn calls sxibroutines ALPHAC and 
NTRCEP. If spatial AIC*s are necessitated by non-zero 
dihedral angles or vertical separation of wing and tail, 
integer array (MUAIC) is determined for each AIC set 
required. It serves as a map, so that only those AIC 
values needed will be calculated. The MUAIC arrays are 
computed in subroutines PWWAIC and PWTAIC. All 
resulting arrays are written on scratch file IGE0SC. 

709.3.4 0VERLAY fMACH0LF, 1. 3) - MODES 

The primary f miction of program M0DES is to determine 
mode shapes (slopes and deflections) for the problem. 

The planform information is read from a scratch file 
created in program GE^MBX. Subroutine R^iPER is called 
to compute row pointers for rowwise storage of box 
center modal values. If rigid body modal input vras 
specified in the input data, an interpolation 
coefficient array composed of that data is assembled in 
core. It rigid body input was not specified, an 
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Interpolation coefficient array specified by the riser is 
read from INTERNF. In either case the interpolation 
coefficient array# with the box center locations# is 
passed to subroutine AINTL which returns the slopes and 
deflections at the box centers. 

Program M()D£S also has an option to use an input array 
of thickness slope function values at box centers 
derived from "Piston Theory." This array is stored as 
part of the data case fay the preprocessor# and is valid 
only for a user specified Mach number. These values are 
used in an equation that ocxnputes the thickness 
correction factor. 


Z(x#y) = 1 ♦ GAMMA ♦ 1 ♦ M * ^ eq. (1) 

2 dx 


where 

GAMMA is the ratio of specific heats for a 
perfect gas (1.40) 

M is the Mach nuirber 

dz is the thickness slope function values 

dx 

z(x#y) is the thiclcness correction factor. 

709.3.5 OVERLAY (MACHgLF, 1,41 - VICMAIN 

Program VICMAIN determines whether aerodynamic influence 
coefficients must be calculated or retrieved from 
MACHRNF for each reduced frequency - 

A parameter array is read from the geometry scratch file 
for each spatial AIC that is needed. The program then 
determines ii an curray already exists on MACHRNF. If it 
exists the array is read# expanded if necessary# and 
stored on scratch file lAICSC if spatial# or in labeled 
common if planar. If calculations are necessary# 
siibroutine KERNEL is called to control the actual 
ccmiputations . KERNEL# in turn# calls ROMBER to do the 
integrations of FONCT and VFUNC. 

It AIC*s are expanded or calculated# they are added to 
those already on MACHRNF. 
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OVERLAY fMACHCfLF, 1.5) -NWVPMBX 


Normal washes and velocity potentials at tJie box centers 
are calculated for each mode shape in program NWVPMBX. 
The necessary box pattei*ns and geometry data are first 
read from the scratch file IGEOSC. The mode shape and 
velocity potential pointer array IPNTRM is read from 
scratch file MODESC, and a pointer array for normal- 
washes, IPNTW, is generated by subroutine POINTER. 

These pointer arrays ser"ve to associate a box location 
in a sparsely filled rectangular array with the 
corresponding mode, velocity potential or normal wash 
value in a singly dimensioned, densely filled array. A 
loop on mode shapes is entered next. The deflections 
and slopes at box centers are read from scratch tile 
M0DESC into array DFPSL. Svibroutine VELPOT is called to 
compute wing upper and lower svurface normal washes and 
velocity potentials at box centers, and trailing edge 
velocity potentials. It a tail is being analyzed as 
well, the contributing wing normal-washes aure determined 
and VELPJ3T is called again for the tail. If off- 
planform sampling was specified in the input data case, 
subroutine SMPLW is called to compute the sampling 
results. The velocity potential array and the trailing 
edge velocity potential array are written on scratch 
file. 


709.3.7 gVERLAY (MACH0LF, 1 ,6) - SMOOTH 

Program SMfif0TH uses a least squares surface fitting 
technique to smooth the velocity potentials generated by 
program NWVPMBX. The velocity potentials are read frcrni 
scratch file and fitted with a least squares polynomial 
by subroutine FITTER . The polynomial equation derived 
from the fitting is then used to compute an interpolated 
array of velocity potentials at planform box centers. 

The smoothed values are then written on scratch file 
lAICSC. 


m 


709.3.8 0VERLAY fMACHgLF. 1 . 7) - CHgRDF 

Program CH0RDF uses a linear least squares fitting 
technique to smooth the velocity potentials along each 
chord. After the velocity potential array is read from 
scratch file, it is separated by chord. The values for 
each chord are changed to the nvxmerical slope between 
the midpoint average values, and subroutine CURVE is 
called to fit a least squares polynoininal curve through 
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these slopes. The polynominal equation is integrated at 
each box on the chord. The integral value becomes the 
smoothed velocity potential at that box. The smoothed 
values are reassembled and written on a scratch file 
lAICSC. 

709.3.9 0VERLAY (MACHgLF. 1, 10) - F0RCES 

Program PJJRCES calciilates a generalized air force matrix 
for each reduced frequency. Planform information is 
read from the geometry and modes scratch files. The 
outermost loop on thickness slope functions is then 
entered. One set of thickness slope functions, defined 
at box centers hy equation (1), is read from the 
thickness slope scratch file. If thickness slopes were 
not specified in the input data case, a unit array is 
used. Next a loop on mode shapes, used as weighting 
functions for the generalized force calculations, is 
entered. Each mode shape is read from the mode shape 
scratch file. In the inner loop the velocity potentials 
and trailing edge velocity potential arrays are read 
from scratch file. The box pattern for each surface is 
then examined row by row. Arrays for box lifts, 
sectional lifts, sectional moments, pressure difference 
coefficients, velocity potentials, generalized 
aerodynamic coefficients, and generalized air forces are 
calculated and written on MACHRNF as requested by the 
user. 
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COMMON BLOCK USAGE 


1 

Name 

1 






0VERLAY: 

MACH0LF 






1 n.oi 1 n.ii 

1 

(1f2) 

± 


1 

n.4i 

± 

(1.5j i (1.6) 

1 (1.7) 1 

1 (1.10) 

1 

/KERiyJR 

1 X 

1 


1 


1 


1 


1 


1 


1 




1 

A^JJfNPARS/ 

1 X 

1 

X 

1 


1 


1 


1 


1 


1 




1 

/KQRNDM/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/KQBUFP/ 

1 X 

1 


1 


1 


1 


1 


1 


1 




1 

/MATRNAM/ 

i X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/GEpMTY/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/GE0M2/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/PLANXY/ 

I X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/ARRAYS/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/SAMPLW/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/M0DES/ 

i X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/BJ3X/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/TSL0PE/ 

i X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/EXEC/ 

1 X 

1 

X 

1 

X 

\ 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/MACH/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/KVAL/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/LEVEL/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/WRITE/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/KERN/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

7' 


1 

/FILES/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/TAPE 10/ 

1 X 

1 

X 

1 

X 

1 

X 

( 

X 

1 

X 

1 

X 

1 

X 

X 


i 

/NERR0R/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/CHECKOUT/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

>: 


1 

/RANDI0/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/MASK/ 

1 X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

1 

X 

X 


1 

/RWBUFF/ 

1 X 

1 


\ 


1 


1 


1 

X 

1 

X 

1 

X 

X 


1 

/AICC^M/ 

I X 

1 


1 


1 


1 

X 

1 

X 

1 


1 




1 

/MUAICS/ 

1 

1 


1 

X 

1 


1 


1 

X 

1 


1 




1 

/EDGES/ 

i 

1 


1 

X 

1 


I 


1 


1 


1 




1 

/LAREA/ 

1 

1 


1 

X 

1 


1 


1 


1 


1 




1 

/INDEX/ 

1 

1 


1 

X 

1 


1 


1 


1 

X 

1 

X 



1 

//ICPAR/ 

1 



1 


1 


1 

X 

1 


1 


1 




1 

/T0C/ 

1 

1 


1 


1 


1 

X 

1 


1 


1 




1 

/BESFUN/ 

1 

1 


1 


1 


1 

X 

1 


1 


1 




1 

/PAICS/ 

1 

1 


1 


1 


1 


1 

X 

\ 


1 




1 

/AICS/ 

1 

1 


1 


1 


1 


; 

X 

1 


1 




1 

/DELTAP/ 

1 

1 


1 


1 


1 


1 

X 

1 


1 




1 

/NWASHES/ 

1 

1 


1 


1 


1 


1 

X 

1 


1 




1 

/SNWASH/ 

1 

1 


1 


1 


1 


1 

X 

1 


1 




1 

/SWASH/ 

1 

1 


1 


1 


1 


1 

X 

1 


1 





/LR0T/ 

J 

_JL_ 


± 


1 


X 


-L 

X 



-L 






t 709.4.1 /KERR^JR/,/C^ARS/,/KeRNDM/,/K!QBUFP/ are ATLAS 

system common blocks described in section 100.2. 

/ 709.4.2 M odule common blocks 

> /MATRNAM/ - contains data case title. 

/GEJ^MTY/ - contains geometry data for first surface. 

/GE(?M2/ - contains geometry data for second surface. 

/PIANXY/ - contains numbers of edge definition points 

and arrays of edge definition points. 

/ARRAYS/ - contains size limits of arrays used within 
MACHBJ2K . 

/SAMPLW/ - contains data for off-planform wash 
sampling. 

/Mj^ES/ - contains modal data needed for execution of 
a data case. 

/Bfax/ - contains input variables determining box 

size and location. 

; /TSL0PE/ - contains information for applying thickness 

slopes correction. 

/EXEC/ - contains parameters and cation indicators 
from execution card. 

/MACH/ - contains Mach nxutiber index, nvnnber of Mach 
numbers, array of Mach nvmbers, and cvirrent 
Mach number being used. 

/KVAL/ - contains information about K values being 
used. 

/LEVEL/ - contains the array of retention level flags 
(logical) . 

/WRITE/ - contains flags for SNARK or READTP formatted 

i/ja. 

/KERN/ - contains data for generation of AIC's. 
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/PILES/ 
/TAPEW - 

/NEREJ3R/ ~ 

/CHEKJJOT/ - 
/RANDW - 

/MASK/ 

/Aiccjan/ - 

/RWBUPP/ - 
/MUAICS/ - 

/EDGES/ 

/LAREA/ 

/INDEX/ 
/VICPAR/ - 

/Tjac/ 

/BESFUN/ - 
/PAICS/ 


contains names of ATLAS scratch files stored 
in local scratch file name variables. 

contains variables used for reading and 
writing of scratch files by routines REAIMX 
and WRTEMX. 

contains counter and flag for local error 
analysis 

contains print flags. 

contains variables used for SHARK reading 
and writing on random files. 

contains masking constants. 

contains planar AIC array to be communicated 
between VI CHAIN and NWVPMBX modules. 

contains buffer array used by READMX and 
WRTEMX routines. 

contains MUAIC arrays (AIC maps) and other 
parameters needed for the ceneration of AIC 
arrays . 

contain the leading and trailing edge x 
locations of the planform. 

contains y coordinates of chord, and box 
flag. 

contains planform column and row pointers. 

contains MUAIC array and other parameters 
vise for generating an AIC array. 

contains the AIC index array. 

contains variables used in the evaluation of 
Bessel function, 

contains variables and pointers associated 
with AIC arrays written on scratch file. 



/hies/ 

/DELTAP/ - 

/NWASHES/ - 

/SNWASH/ - 

/SWASH/ 
/EXCDES/ - 
/iRjjrr/ 


contains the AIC arrays. 

contains velocity potential arrays and 
pointer . 

contains arrays used in normal wash 
calculation. 

contains arrays and variables used in 
subdivided normal wash calculations. 

contains arrays of off-planforro samples. 

contains box code array. 

contains a subdivision pointer. 



r 
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710. NASS PROCESSOR 

710.1 GENERAL INFORMATION 

710.1.1 Purpose 

1) Confute element, and total model mass properties 

2) Generate diagonal and/or non-diagonal lunped mass 
matrices 

3) Generate panel weight matrices 

4) Generate the element mass matrices 

5) Generate fuel a.^d payload distribution data 

710.1.2 Access 


ITiis module is called from the ATLAS control program via 
the EXECUTE MASS(plist) Statement, (sec, 238, ref. 1-1) 


710.2 MATJllX ACTIVITY 


Name Description 


File 


t 










Input 

1 

ISSCsss 

Substructure definition vector 

DAT?b<NP 

2 

ISSSCJ3R 

Set/ stage - subs tructur e 


3 

KL0C0pa 

correspondence vector 
Local coordinate data 

DATARNF 

DATARNF 

4 

KM00001 

Material data 

DATARNF 

5 

KM£LN(7a 

Element nodal data 

DATARNF 

b 

KNCIOOa 

Nodal correspondence table 

DATARNF 

7 

KN)2ALTa 

Nodal data matrix 

DATARNF 

8 

KPARMS1 

Data set parameter matrix 

DATARNF 

9 

KRFVOba 

Retained freedom vector 

DATARNF 

10 

KSFOO la 

Element data 

DATARNP- 

11 

MCMASga 

Concentrated mass data 

DATARNI- 

12 

MCMNiJDa 

Concentrated mass nodes 

DATARNF 

13 

MC0NDTa 

Condition data 

DATARNF 

14 

MFATUDa 

Fuel altitude data 

DATARNF 

15 

MFC(?NDa 

Fuel condition data 

DATARNF 

1b 

MFL)9ADa 

Fuel management data-loadlng 

DATARNF 

17 

MFMUSEa 

Fuel management data -usage 

DATARNF 

18 

MFULffa 

Fuel element data 

DATARNF 

19 

MH)^Sa 

Cargo hold geometry data 

DAT^'RNF 

20 

NMELNpla 

Element nodal data 

DhTARNF 

21 

ML^Dppa 

Payload element data 

DATARNF 

22 

MLUMPOa 

Mass iTuiping data 

DATARNF 

23 

MPANLha 

Auxiliary panel data matrix 

DATARNF 

24 

MPARMSI 

Data set parameter matrix 

DATARNF 

25 

MPC(3NDa 

Payload condition data 

DATARNF 
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26 

MPL0ADa 

Payload loading data 

DATARNF 


27 

MPL^CLa 

Seat 6a ta - local coordinates 

DATARNF 


28 

MPNJJCTa 

Seat data - correspondence table 

DATARNF 


29 

HPN0DMa 

Seat data - coordinates 

DAT.JINP 

1 

30 

MPSETha 

Panel subset data 

DATARNF 

V 

31 

MSPOOIa 

Eluent data 

DATARNI' 


32 

MTANKSa 

Fuel tank geometry data 

DATARNF 


33 

MWTFACa 

Weight factors 

DATARNF 


34 

MWTFTta 

Weight factor tables 

DATARNF 


35 

SEKddda 

Stiffness subset data 

DATARNF 


36 

Output 

SEHddda 

Mass subset data 

DATARNF 


1 

MAOOCIa 

ElcMoent mass matrices 

MASSRNF 


2 

OgOOO la 

Concentrated meuss matrices 

MASSRNF 


3 

Mxxxxxx 

Element weight data 

MASSRNF 


4 

Gxxxxxx 

Element geometry data 

MASSRNF 


5 

IDxxOOa 

Element index matrix 

MASSRNF 


6 

GFXXXXX 

Fuel tetrahedron geometry data 

MASSRNF 


7 

GPxxxxx 

Payload tetrahedron/scalar data 

MASSRNF 


8 

TprTLWTa 

Weight summary matrix 

MASSRNF 


9 

TAPLWTa 

Condition summary matrix 

MASSRNF 


10 

MDCqqqa 

Mass nu'^trices 

MASSRNF 


11 

MREDsss 

Mass matrices (substructure) 

MASSRNF 


12 

MFAVOOa 

Freedom activity vector 

MASSRNF 


13 

FTxxxxx 

Fuel tables 

MASSRNF 


14 

FTiNDxx 

Fuel tablo index ma*^r<‘ 

MASSRNF 


15 

FVECffa 

Fuel vectors 

MASSRNF 


16 

CVECppa 

Cargo vector 

J4ASSRNF 


17 

PVECppa 

Passenger vectors 

MASSRNF 


18 

'.TlMASga 

Concentrated mass data 

SCOORNF/ 

MASSRNF 

' 

19 

AXxxxxx 

Auxiliary panel data 

SCOORNF/ 

MASSRNF 


20 

LMxxxxx 

Lumped mass data 

SCOORNF/ 


MASSRNF 

R detailed description of the matrix formts io 
contained in reference 1-2. 

710.3 PROGRAM DESCRIPTION: 

The MASS module consists of a primary overlay and twenty 
secondary overlays. 
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710.3,1 gVERLAY (MASSgLF, 1,0) - MASSCIL 


a. Controls execution of the MASS nodule. 

710.3.2 gVLRIAY (MASSgLF. 1, 1) > GEgMTRY 

a. Reads the stiffness, mass, fuel and payload element 
matrices and multiplies the densities by the 
requested vfeight factor. 

b. Extracts the coordinates of the element node . 

c. Sets up the element geometry matrices. (Gxxxxxx) 

710.3.3 gVERIAY IMASStfLF. 1 ,21 - TflfEALWT 

a) Ccnnputes the weight, center of gravity, and weight 
moments of inertia for the stiffness, mass, fuel 
and payload elements. 

b) Sets up the element mass data matrices (Mxxxxxx) . 

c) Sets up the element index matrices (IDxxOOa) . 

d) Extracts the concentrated mass nodal coordinates 
and sets up tlie concentrated mass data matrices 
(CI®!ASga) . 

e) Computes the total weight, center of gravity, and 
weight moments of inertia for each element set and 
for each concentrated mass subset. 

f) Sets up the weight stsnmary matrix (T^rn.WTa) . 

710.3.4 gVEiJAY (MASSgLF.1.4^ - PANELWT 

a) Sets up the array of cutting planes corresponding 
to the auxiliary weight panels. 

b) Calls PANEL3 to assemble the stiffness, mass, fuel 
and payload element weight data matrices for each 
element subset. 

c) PANEL3 calls PANEL2 \/diich sums the weights of each 
element and/or part of element within a polygonal 
cylinder to get the panel weight, 

d) Weight data matrices corresponding to each 
avixiliary panel subset are written on scratch file 
for use by the ASSMBLY program. 
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710.3.5 gVERLAY (MASSgLF, 1 .5) - GENMASS 


a) Assembles the stitfness, mass, fuel and payload 
element weight data matrices by computing the 
weight within a polyhedron defined around each 
retained node such that each infinitesimal weight 
is lumped at the closest retained node. 

b) Weight data matrices corresponding to each set of 
retained nodes are written on scratch file for use 
by the ASSMBLY program. 

710. 3. b OVERLAY (MASSgLF, 1 ,61 - ASSMBLY 

a) Reads the weight data matrices from scratch file 
for the element subsets and assembles a weight data 
matrix corresponding to each defined mass 
condition. 

b) Adds the concentrated mass data to each weight data 
matrix as required. 

c) Svims the terms in each weight data matrix and 
compares the total weight to the total weight of 
the element subsets that make up the mass 
condition. 

d) Writes the assembled weight data matzicas on 
scratch file for use by the MRGMASS progreun. 

e) Sets up the final panel weight matrices 
corresponding to the panel weight conditions and 
writes them on MASSRNF. 

f) Sets up the condition sunmary matrix (TAPLWTa) and 
writes it on MASSRNF. 

710.3.7 0VERLAY (MASS0LF. 1,7) - MRGMASS 

a) Reads the assembled weight data matrices from 
scratch file. 

b) Converts weight to mass and assembles the diagonal 
and/or nondiagonal mass matrix. 

c) The diagonal matrices are generated by extracting 
the required diagonal terms from the weight data 
matrices. The resulting matrxx is a user matrix 
written on MASSRNF. 
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The ncmdiagonal matrices are generated by 
transferring the mass from the center of gravity to 
the retained node. All resulting off-diagonal 
terms are retained. The resulting matrix is a user 
matrix written on MASSRNF. 

710.3.8 0VERIAY (MAS3gLF« 1, 10) - LUMPGE N 

a) Computes the element lumped mass matrices for 
stiffness and mass elements. 

b) Computes lumped mass matrices for each defined 
concentrated mass subset. 

c) The lumped mass matrices (MAOOOIa and CgOOOIa) are 
written on MASSRNF. 

d) The total weight of each element/concentrated mass 
combi nation is confuted and added into the 
condition summary matrix (TAPLWTa) 

e) The mass freedom activity vector (MFAVOOa) for the 
elements and each concentrated mass subset is 
created and written on MASSRNF. 

710-3.9 fl>VERLAY (MASSgLF, 1, 11) - CgWSGEN 

a) This is a dummy overlay reseirved for consistent 
mass inatrxx generation. 

710.3.10 OVERLAY (MASS0LF, 1, 12) - SUBMASS 

a) Reads the mass matrices for each lower level 
substructure and writes them out as user matrices 
with the names MREDsss, where **sss" is the 
substructure number. 

b) Computes the total weight, center of gravity and 
weight moments of inertia for the top level 
substructure . 

c) Sets up the condition sumnary matrix (TAPLWTa) for 
the top level substructure. 

710-3.11 0VERLAY (MASSgLF. 1 , 13) - FUELTET 

a) Forms the fuel tank tetrahedron scratch matrices. 

im 


f 
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710.3.12 gVERIAY (MASS0LF . 1 . 1 4 > - FOELTAB 

a) Forms t.he fuel table matrices and their index 
matrix. (FTxxxxx^ FTlNDxx) 

710.3.13 0VERIAY (MASSgLP. 1 . 151 - FUEI/IAN 

a) Forms all scratch matrices related to fuel 
management . 

710.3.14 gVERLAY (MASSgLF, 1 . 1o> - FUELELM 

a) Forms the fuel geonetry and index matrices for each 
condition. (GFxxxxx, IDxxxxx) 

710.3.15 0VERIAY (MASS0LF.1 .17) - PAYTET 

a) Forms the cargo hold tetrahedron scratch matrices. 

710.3.16 0VERLAY fMASSgLF. 1 .201 - PAYmS 

a) Forms the cargo table scratch matrices and their 
index matrix. 

710.3.17 gVERlAY (MASSgLF . 1 . 2 H - PAYLgP 

a) Forms the cargo and passenger loading scratch 
matrices. 

710.3.18 gVERIAY (MASS0LF . 1 .22) - PAYELM 

a) Forms the payload geometry and index matrices for 
each condition (GPxxxxx, IDxxxxx) 

710.3.19 gVEKIAY (MPESgLF.I ,231 - PAYVEC 

a) Forms the fuel, Ccirgo, and passenger loading 
vectors for the GRAPHICS module. (FVecffa, 

CVECppa , PVe cppa ) 

710.3.20 gVERIAY fMASSgLF. 1 .24) - PAYBAL 

a) Forms the payload geometry and index matrices for 
the generated balance conditions. (GPxxxxx, 
IDxxxxx) 

710.3.21 gVERIAY (MASSgLF, 1 ,77) - SETCNTI. 

a) Sets up the MASS Processor control conmon block 
CgNMAT. 


-.t 
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710.4 


COMMON BLOCK OSAGE 


710.4.1 /CJWPARS/,/KERR(aR/,/KeBOFP/,/KQRNDM/ - ATLAS system 

comnon blocks, described in section 100.2. 

710.4.2 /Q9NHAT/ contains control and problem size information 

for use by the MASS module. 

710.4.3 /TETCJJM/ passes control information between FOELTET 

and TETDRIV. 

/C00R2O/ has the coordinate points for a 20 node BRICK. 

/CpRNER/ has the corner points for a tetrahedron. 

/TABCjaw/ has control information for use in 
FUELTAB and TABDRIV. 

/ELMC^M/ passes control information between FUELELM 
and FCpNTET. 

/P£IMC$2M/ passes control information between PAYELM 
and PCJJNPAS, PC^NTET. 

/PBALC^W/ contains balance data and control 
information. 

/PBGPCJZM/ passes control information between PAYBAL 
and PBALGP, PBALPAS. 
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711 


MERGE PROCESSOR 


711.1 GENERAL INFORMATION 

711.1.1 Purpose 

Merge element stiffness, mass, nodal loads and 
displacement matrices for regular and substructiired 
models. Produce tables of node and freedom activities. 

711.1.2 Access 

This processor is called from the ATLAS control program 
by the EXECUTE MERGE(plist) Statement (sec. 242, ref. 1- 
1 ) . 

711.2 MATRIX ACTIVITY 
711.2.1 Set/Staqe Mode 

Name 


Description 


Pile 


Input 


1 

KACVOba 

Assembly Control Vector 

DATARNF 

2 

KFAVOIa 

Stiffness Freedom 
Activity Vector 

STIPRNP 

3 

KRFVOba 

Retained Freedom Vector 

DATARNF 

4 

KUFRTOa 

User Freedom Reference 
Table 

DATARNF 

5 

KFATOOa 

Freedom Assignment 
Table 

MERGRNF 

6 

KNCIOOa 

Nodal Correspondence 
Table 

DATARNF 

7 

LFAVOba 

Loads Freedom Activity 
Vector 

L0ADRNF 

8 

MFAVOOa 

Mass Freedom Activity 
Vector 

MASSRNF 

9 

DCJ^ba 

Loadcase Correspondence 
Table 

L0ADRNF 

10 

KAO 00 la 

Element Stiffness 
Matrix 

STIFRNP 

11 

MAOOOIa 

Element Mass Matrix 

MASSRNF 

12 

CgOOOIa 

Element Concentrated 
Mass Matrix 

MASSRNF 

13 

DAOOIba 

Nodal Displacement 
Matrix 

L^ADRNF 

14 

LAOOIba 

Nodal Loads Matrix 

L0ADRNF 

15 

KNi^DCpN 

Nodal Connectivity 

DATARNF 

1b 

BSETC(?N 

Bset Control 

STIFRNF 



Name 


File 


r.i 


Description 


Output 

1 Kij b a or 

xxxxxxx 

2 Mij b a or 

XXXXXXX 

3 Lil or 
XXXXXXX 

4 D31 

5 KRTCOba 

6 KUPRTOa 

7 KFATOOa 


i“j Partition of 
Stiffness Matrix 
i-j Partition of 
Mass Matrix 
i-1 Partition of 
Loads Matrix 
3-1 Partition of 
Displacement Matrix 
Retained Freedom 
Correspondence Ted>le 
User Freedom Reference 
Table 

Freedom Assignment Table 
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Substructure Mode 


Input 


1 

lACVSSS 

Assembly Control Vector 

2 

IRFVsss 

Retained Freedom Vector 

3 

IRTCSSS 

Retained Freedom 
Correspondence Table 

4 

IFATSSS 

Freedom Assignment 
Table 

5 

IFAVsss 

Stiffness Freedom 
Activity Vector 

6 

lUFRSSS 

User Freedom Reference 
Table 

7 

INCISSS 

Nodal Correspondence 
Table 

8 

ILFAsss 

Load Freedom Activity 
Vector 

9 

ILC$>sss 

Loadcase Correspondence 
Table 

10 

ILRCSSS 

Loads Rtincodes Matrix 

11 

ISRCSSS 

Stiffness Runcodes 
Matrix 

12 

INDMSSS 

Nodal Data, Matrix 

13 

IDLCSSS 

Dovffiward Loadcase 
Runcodes Matrix 

14 

lELCsSS 

Loadcase Expansion 
Runcode Matrix 

15 

LAOO Iba 

Nodal Loads Matrix 

16 

DAOOIba 

Nodal Displacement 
Matrix 


V,.. 


. - » 


If 




MERGRNF 

MERGRNF 

MERGRNF 

MERGRNF 

MERGRNF 

MERGRNF 

MERGRNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

DATARNF 

L0ADRNF 

L0ADRNF 
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s 


if 




17 

18 

19 

20 

21 

22 

23 

Output. 

1 

2 

3 

4 

5 

6 

7 

8 

9 


User Matrices 


KREOsss 

MREDSSS 

LREDSSS 

DBSisss 

DBS2sss 

OBS3sss 

GREDsss 


Reduced Stiffness Matrix 

Reduced Mass Matrix 

Reduced Loads Matrix 

Free Partition Substructure 

Displacement Matrix 

Retained Partition Substructure 

Displacement Matrix 

Support Partition Substructure 

Displacement Matrix 

Reduced Geometric Stiffness Matrix 


KijSsss 

MijSsss 

LilSsss 

D31Ssss 

DBS2sss 

IRTCsss 

IFATsss 

lUFRsss 

GijSsss 


i-j Partition of MERGRNF 

Substructure Stiffness 

Matrix 

i-j Partition of MERGRNF 

Substructure Mass Matrix 

i-1 Partition of MERGRNF 

Substructure Loads Matrix 

3-1 Partition of MERGRNF 

Substructure Displacement 

Matrix 

Retained Partition MERGRNF 

Substructure Displacement 
Matrix 

Retained Freedom MERGRNF 

Correspondence Table 
Freedom Assignment Table MERGRNF 

User Freedom Reference MERGRNF 

Table 

i-j Partition of MERGRNF 

Sub-structure Geometric 
Stiffness Matrix 


The format of the user matrices is described in section 
400.3. The format of the rest of the matrices is described 
in reference 1-2. 


711.3 PROGRAM METHOD 

The MERGE module consists of a primary overlay, MERGE, 
and five secondary overlays, MRGSET, MRGMAP, l^RSRT, 
PjaLYMRG and L0DER. 

711.3.1 gVERLAY (MERGE. 1,0) -MERGE 

a. Establishes processor's file environment 


,i 


711.3 



b. Controls execution through secondary overlays. 

c. Writes sxmmary printout for each overlay if 
checkout flag is on. 

d. Bandies error rettarns and error printing. 

711.3.2 0VERLAY f MERGgLF .1.1) -MRGSET 

Control parameter interpretation and generation 

a. C0NPARS(3,1) is read for basic merge option. 

b. Rest of /CJ?NPARS/ is examined for control 
parameters and a matrix list. 

c. Parameters not specified are set to default. 

d. List of common matrix names is constructed. 

e. List of output matrices is set up. 

f. If not already in existence, the freedom assignment 
table (KFAT) is constructed from the assembly 
control vector (KACV) and stiffness freedom 
activity vector (KPAV) . 

g. List of free freedoms is printed out by user node 
number and freedom index. 

h. If requested, list of inactive retained freedoms is 
printed out by user node number and freedom index. 

i. For set/stage mass merge, compare stiffness and 
mass freedom activity vectors and indicate 
deviations . 

j. Produce retained freedom correspondence table 
(iCRTC) from retained freedom vector (KRFV) and 
freedom assignment table (KFAT) . 

k. l^date user freedom reference table (KUFRT) with 
final partition poptilation counts. 

l. For loads merge, obtain number of loadcases in 
problem. 

m. For loads merge, compare stiffness and loads 
freedom activity vectors (LFAV) and indicate 
deviations . 
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n. Set up matrix merging information and print a 
message trom matrices of zero order. 

o. Check to see if a requested matrix already exists 
and print the appropriate message (see fdPTlsnu 
description, sec. 242, ref. 1-1). 


3 gVERlAY (MERGflOiF .1.2) -MRGMAP 

This overlay reads bulk matrix data and assigns sort 
keys to each datum. The main program controls the 
execution of the overlay according to one of the ten 
merge options: 


a. Read matrix, produce sort key elements for: 


1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 
9 , 

10 . 


Stiffness 

:<lass 

Loads 

Displacements 

Stiffness 

Mass 

Loads 

Displacements 
Gitif fness 
Gstif fness 


Set/Stage 

Set /Stage 

Set/Stage 

Set/Stage 

Substructure 

Substructure 

Substructure 

Substructure 

Set/Stage 

Substructure 


b. Deccxipose a higher level substructure displacement 
matrix into its ccmpanent substructure matrices. 

c. Transform a substructure displacement matrix from 
one loadcase system to another. 


Convert sort key elements into a sort key and add datum 
to tile to be sorted. Each type of matrix is handled by 
a separate routine. 


Each block of sort keys and datums is sorted and an in 
place merge is performed before the block is written, 
out. 


4 gVERLAY fMERGgLF. 1.3) -STRING 

In the event multiple blocks are written oxA by MRGMAP, 
STRING performs the string merge on these blocks. 

Blocks are maintained on numbered random files so that 
blocks may be sorted by sorting ind.lces. Thus only 
overlapping blocks are ever called in for string merge. 
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711.3.5 0VEKLAY (MERGgLF .1.51 -LflDER 

Matrix data contained on a sorted sequenticU. file is 
written to the random access filer MERGRNFr in utility 
matrix format. If a rcw is missing r st least one zero 
will be produced for the row. For a triangular matrix, 
the zero is put on the diagonal; for a rectangular 
matrix, the zero is put in the first colvimn. At the end 
of the process, zero and null matrices are inserted into 
the user matrix catalog. 

711. 3. b 0VERLAy (MEKG0LF ,1,61 -KMTEST 

Provides a consistency check on the global stiffness 
(1,1) partition by determining the eigenvalues of the 
submatrix for each node. The ratio of largest to 
smallest is used as a test ind error and warning 
messages are printed. A second pass check may be 
requested which uses the larger sulsnatrix of n^des 
connected to each node. 

711.4 COMMON BLOCK USAGE 

711.4,1 /Q0NPARS/, /KERRjaR/,/KeRNDM/ » /KQBUFP 

are ATLAS Common Blocks described in 
section 100.2. 


711.4.2 MERGE Common Blocks 
/TUdy^Yl/ 

MFIRST - Switch indicating if first call to 
MAP routine 

INTEN - Parameter indicating type of matrix 
= 1 Stiffness 
= 2 Mass 

= 3 Geometric Stiffness 
MYSTAT (I,J,K) - Array of matrix status codes 



T = Matrix Row Partition Number 

J = Matrix Column Partition Number 

K = Matrix Storage 

== 1 lower tricuigular matrix by row 

= 3 rectangular matrix by row 

/BFSIZE/ 

MAXREC - 

Maximum record size of output matrices 

/CHKPRNT/ 

ICHK1 - 

Switch for printing input records 
in octal. 

ICHK2 - 

Not used. 


t 
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ICHK5 - Switch for printing output records 
in octal. 


/CHKPT2/ 

ICHK3 


ICHK4 - 


/ERR^/ 

KRTRN 


Switch for printing records of 
unsorted file 
= 1 in octal 
= 2 in floating point 
Switch for printing records of 
sorted file (same as ICHK3) 


Contains address in main overlay for 
error return. 


/FRMCNT/ 

NFRDMS - 


Array containing partition counts 


NFRDMS (1) - Nvurber of elements in 
Parti tio:. 1 

NFRDMS (2) - Number of elements in 
Partition 2 

NFRDMS (3) - Number of elements in 
Partition 3 

NFRDMS (4) - Number of elements in 
Partition 4 

NFRDMS (5) - Nuirber of columns in 
deflection matrix 

NFRDMS (6) “ Number of columns in loads 
matrix 


/japTINlO/ 

IMTXLS - Name of substructure matrix 
to be expanded 

IPARTP - Partition number of substructure 
matrix to be expanded 

/MGCJjrST/ 

MGC;0ST - Switch to print CRU information 


/MRG^FPT/ 

MRG^T - Contains basic merge switch 

=1 Set/stage elemental stiffness 

matrices 

=2 Set/stage elemental mass matrices 
=3 Set/stage nodal loads matrices 

=4 Set/stage specified displacement 

matrices 

=5 Substructure stiffness matrices 

=6 Substructure mass matrices 

=7 Substructure loads matrices 
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=8 Substructure displacement 
matrices 

=9 Higher level substructure 

displacement matrix partition 
=10 Substructure loadcase dependent 
matrix expansion 


/MXFILE/ 

hviJPILE - Number ot matrices in array MXFILE 
MXFILE “ Ariay containing matrix names and 
codes 


MXFILE (1,1) 
MXFILE (1,2) 


Name of matrix I in list 
Row partition code of 
matrix I 
=1 free 


=2 xotain 
=3 support 
=4 not used 


MXF’ILE(1,3) - Colvunn partition code of 
matrix 1 
=1 free 
=2 retain 
=3 support 
=4 not used 
=5 displacements 
=6 loads 


/NECJ3N/ 

DASET - Contains set number in display code 
equivalent in bits 23-18 
ISTGE - Contains stage number in display code 
eq\ii valent in bits 29-24 

/NEIGH/ 

NAMHLD - Array containing matrix file names 


/piPTI(aN9/ 

NURWS (I) - Number of 
NUCLS (i; - Number of 


rows in substructure I 
columns in s\ibstructure I 


/PPDATA/ 

IDATA ( 1 ) - 
IDATA(2)- 
IDATA (3) - 
IUATA(4) - 
IDATA (5)- 
IDATA(6)- 
IDATA (7) - 
IDATA (8)- 
IDATA(9)- 


Nuraber of bulk records read 

Number of items in bulk records 

Nvimber of data mapped 

Number of unsorted records 

Number of items in unsorted records 

Number of items in sorted records 

Number of sorted records 

Number of output matrix records 

Number of items in output matrix records 
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/RNAMES/ 

NACV “ 
NPAV - 

NRFV - 
NRTC - 

NUFR - 

NPAT - 
MNC1 - 

NLPA - 


/SDATA/ 

RCNMS - 

KRETN - 


KSBN0 - 
KSBTP - 


KSWEN - 


/SNAMES/ 

NJ3SUB - 
ISNAME- 

/SRTFILS/ 

NW0RDS - 
LP(1) - 

LF(2) - 

LP(3) - 

LF{4) - 


i- 

** 

I 

* t 

>1 




Name of assembly control vector 
Name of stiffness freedom 
activity vector 

Name of retained freedom vector 
Name of retained freedom 
correspondence table 
Name of user freedom 
reference tcU>le 

Name of freedom assigmnent table 
Name of aodal correspondence 
table 

Name of loads freedom 
activity vector 


Contains concentrated mass data subset 
number in bits 53-48 
Retained freedom handling option 
= 1 Inactive retains are flagged 
as error 

= 2 Inactive retains are left in 
problem 

Substmicture mamber in display code in 
bits 35-18 
Structure type 
= 1 set/stage 

= 2 first level substructure 
= 3 upper level substructure 
Matrix list switch 
= 1 no list 
= 2 list present 


Number of names in array 
Array of substructure names 


Number of words in sort group 

Input file 

Sort file 1 

Sort file 2 

Sort tile 3 
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1_ 

OVERLAY: 

MERG0LF 


.i 

1 NAME 

1 (1.0) 111^1) 1 tn2) i cn 

31 1 (1,5) 

J. 

1 C0NPARS 

1 

X 



1 

1 KERK^ 

1 X 

X 



1 

1 KQBUFP 

1 X 




1 

1 KORNDM 

i X 



X 

JL 

1 ARRAY1 

1 X 

X 

X 


1 

I BFSIZE 

1 X 

X 


X 

1 

1 CHKPRNT 

I X 

X 

X 

X 

1 

1 CHKPT2 

1 X 

X 

X 

X 

1 

1 ERR^ 

1 X 




« 

1 

1 FRMCNT 

1 X 

X 

X 

X 

1 

1 J3PTIN10 

1 X 

X 

X 


1 

1 LG0FAT 
1 MGC0ST 

1 

t X 

X 

X 

X 

1 

1 

1 MRGJ8PT 

1 X 

X 

X 

X 

1 

1 MTXSPEC 

1 



X 

1 

1 MXFILE 

1 X 

X 


X 

1 

1 MXTSPEC 

1 



X 

1 

1 NEQ9N 

i X 

X 

X 

X 

1 

1 NEIGH 

1 X 

X 


X 

» 

1 NULLIN 
1 i^PTl^ 

1 

1 

X 

X 


1 

1 

1 ^TI0N9 

1 X 


X 

X 

1 

1 PFDATA 

1 X 


X 

X 

1 

1 RNAMES 

1 X 

X 

X 


1 

1 SDATA 

1 X 

X 

X 


1 

1 SDATA1 

1 

X 



1 

1 SNAMES 

1 X 

X 

X 

X 

1 

1 SFLFET 

1 


X 


1 

1 SRTFILS 

1 X 


X 


1 

1 STRINGS 

1 X 


X 


1 
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MULTIPLY PROCESSOR 
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712.1 GENERAL INFORMATION 

712.1.1 Purpose 

The MULTIPLY processor evaluates the matrix expression 

[Dl = {±(C]) ± [A(t) ]i[B]i±[A(t) ... 

where [A], [B], [C] and [D] are ATLAS user matrices, and 
{) indicates optional terms. A series of from one to 
five matrix products can be processed by each call to 
the program. The first matrix in a product may be 
specified as transposed. If any one of the factor 
matrices is null the corresponding matrix multiplication 
will not be carried out. 

712.1.2 Access 

The processor is called from tlie ATLAS control program 
by the EXECUTE MULTIPLY (plist) statement. The matrix 
expression to be evaluated is specified in plist, which 
also may contain other optional specifications. (sec. 
244, ref. 1-1). 

712.2 MATRIX ACTIVITY 
I nput 

Frcati 2 to 11 user matrices, depending on the length 
of the matrix expression. Any user matrix residing 
in the ATLAS data base at the time of the call to 
the multiply processor may be used as input. Formats 
of the user matrices are described in section 400.3. 


712.3 


A user matrix containing the evaluated matrix 
expression. 


PROGRAM METHOD 


The MULTIPLY processor is organized as an overlay 
program consisting of one primary overlay, MULTPAC, and 
tvx> secondary overlays, SETPARS and MATMULT. The 
overlay structure, including supporting sxibroutines, is 
described in section 712.4. Ihe internal processing of 
the program is divided into three subtasks which are 
defined as follows; 


t 


’ » 
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a) Matrix loading - The input matrices are re- 
torroatted and copied onto numbered random scratch 
files. The primary purpose of the re-formatting is 
to change the record size of the matrices in order 
to 1) utilize all core storage available to perform 
the matrix operations, and 2) to achieve 
overlapping of CP operations and data transfer 
to/froro disk storage. The principles used to 
select the matrix partitioning sizes will be 
discussed in section 712.3.2. A secondary effect 
of re-formatting is to extract information about 
matrix sparseness which is used to increase 
processing efficiency. The routines performing 
matrix loading are RTLJ^AD, TFI^AD and TBL0AD. 

b) Matrix multiplication - The matrix operations 
specified by the EXECUTE MULTIPLY statement in the 
control program are carried out. The program 
distinguishes between five different multiplication 
"schemes* as described xn section 712.3.1. The 
matrix multiplication routines are BTBMLT, BWDMLT, 
FWDMLT, RCRMLT and RRRMLT. 

c) Matrix unloading - The result matrix is re- 
formatted and copied from scratch file to the 
random named file MULTRNF. Matrix partition size 
on MULTRNF is either input via the control program 
statement or a default value is used. The matrix 
unloading routines are RTBL0D and TBRL0D. 

712.3.1 Matrix Multiplication Formats 

A matrix multiplication sclieme is defined by the types 
of matrices involved in a matrix product. The program 
distinguishes between the five multiplication schemes 
shown in table 712-1. In this table, [A] denotes the 
pre-multiply matrix, [B] the post -multiply matrix, [C] 
the add matrix, and [D] the result matrix. Where 
"triangular" is entered, the lovier triangular portion of 
a banded, symmetrical matrix is meant. 
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Table 712-1. Mult.ipIicat.ion schemes used by the MULTIPLY Processor 


1 

IMultipli 

1 

-1 [A] 

t i 

1 [B] 1 [C] 

1 

1 [D] 1 

1 

Subroutine | 

1 

cation 

1 Matrix 

1 Matrix 1 Matrix 

1 Matrix 1 

Used 

1 

1. 

Scheme 

i 

1 1 

1 


1 

1 

1 

1 

1 

1 rectangular 

i i 1 1 

1 rectangular | rectangular | rectangular I 

RRPMLT 

1 

1 

1. 


1 

1 J _ _ 

1_ 1 


1 

i 


1 

1 t 

1 1 


1 

1 

2 

1 rectangular 

1 rectangular | rectang\U.ar | rectangular | 

RCRMLT 

! 

J_ 


1 transpose 

1 I 

1 


L 

1 

1 

3 

1 

ItB(t) ] 

i 1 

1 rectangular 1 triangular 

1 1 

i triangular | 

BTBMLT 

1 

1 

1. 



1 1 ^ _ 

J 


L 

1 


1 

1 1 

i 1 


1 

1 

4 

1 triangular 

1 rectangular |rectangular| rectangular | 

FWDMLT 

1 

i. 


1 

1 - - - 1_ - - - 

1 

BWDMLT 

1 

1 

1 

5 

1 

1 rectangular 

1 1 
1 rectangular 1 triangular 

1 1 

1 triangular | 

RCRMLT 

I 

1 

1 . 


i transpose 

J J 

J -J 

1 

L 


712.3.2 Overlapped Processing - Core Strategy 

In pertorming the various types of matrix 
multiplications the program will attempt to optimize the 
processing in the following ways: 

(a) Overlap central processor operations and data 
transfer to and from disk storage. 

(b) Select matrix partitioning sizes such that a 
ndnimum of core %a>rk area is needed to satisfy 
requirement (a) above. 

In the following the arrangement tor each matrix 
multiplication scheme will be discussed separately. Ihe 
following notation will be used: 


t(c) 

- The Central Processor time required to 
d=c(r)a*b, where a, b, c and d are all 
floating point numbers. 

perform 

t (a) 

- Disk access time. 


t(t) 

- The time required to transfer one word 
disk to core. 

from 
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!, C*V»4i 


rd 


T(C) 


T(t) 

w 


The Central Processor time required to perform 
a matrix multiplication with one set of [A], 
[B] and [C] partitions. 

The transfer time reqtiired to copy one 
partition from disk to core. 

The size of ttie core work cu:ea. 


i,i,k - Dimension parameters of the [A], [B] and [C] 

matrices such that [A] =A(i,j), [B] = B(j,k) , 
[C] = C(i,k) . 


|///i - Core resxdent matrix partitions 


I ; : : i •* Matrix partition being transferred 
between disk and core. 


i I - Disk resident matrix partitions 


712.3.2.1 Multiplication scheme 1 


I k 1 


I 

I _ 

I Z 
Z 

j 

I 
I 

1 . 

B matrix 


1 — 

— j 1 



J 

' L 

i 

^ A 

1 I/////////////I 

1 

1 I///////I 

XI /////////////I 


XI ///////I 

1 I/////////////1 

i 


1 

1 


1 1 

J 

L 

1 

J L 


A matrix C matrix 


U/a/L 


The matrix multiplication is illustrated in the figure 
above. The core work area is organized into four 
buffers containing matrix partitions. Three of the 
buffers contain the [A], [B], and [C] partitions which 
are cui rently being multiplied. The fourth buffer is 
used to store the next [B] matrix partition to be 
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processed. This buifer is loaded while multi plicat. ion 
is carried out on the other partitions. The [A] and [C] 
partitions will contain x rows, and the two [B] 
partitions y rows each. Equations for W, T(c) and T(t) 
can then be set up as follows: 

W = x(j+K)+2yk 

1(c) = :^Kt(c) 

T(t) = ykt(t) ♦ t(a) 

The requirement for overlapping of central 
processor operations and data transfer is obtained 
from the last two equations: 

T(c) = T(t) ; X = tCt) ♦ 1_ t(a) 

t(c) yk t(c) 

Substituting for x in the first equation and evaluating 
dW/dy gives the condition for minimum work area: 

^ = 0; y=l SQRT (t(al (i*k) 
dy k 2t (c) 
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Multiplication sctieine 2 



I— k 1 



B matrix 


I j 



A(t) matrix C matrix 


The work area in this case contains five matrix 
partitions; two [A] and [B] partitions and one [C] 
partition. The two extra [A] «md [B] buffers are loaded 
while the other partitions are multiplied. The [A] and 
[B] partitions contain x rows, the [C] partition y rows. 
In setting up the transfer time tor the [A] and [B] 
partitions it is assximed that the corresponding files 
were accessed through different channels so that the 
loading may occur simultaneously. The equations for w, 
T(c) and T(t) will be: 

W = 2x(i+k)+yk 

T(c) = yxk.t(c) 

T(t) = xit(t)*t(a) 

The optimal buffer sizes are then found to be; 

T(c)=T(t) ; y=i t (t) ♦ t (a) 

k t(c) xk t(c) 

dW =0 ; x=SQRT( t (a) ) 

dx 2t(c) (i+k) 


1 
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712.3.2.3 Mult-iplication scheme 3 



B matrix 


I 
I 

i 

B (t) matrix 

The work area contains tliree natrix partitions; two [B] 
partitions and one [C] partition- One [B] part ion is 
transferred to core while the other partitions are 
multiplied. The B partitions contain x rows and the C 
partition y matrix elements. Ihe equations for W, T(c), 
T (t) , X and y are ; 

W = 2xk+y 

T(c) = xyt(c) 

T(t) = xkt(t) ♦ t(a) 

T (c) - T (t) ; v^k t (t) + 1 t(a) 
t (c) X t (c) 

^ = 0; X ^ SQRT t (a)) 

dx 2k t (c) 
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712.3.2.4 Multiplication scheme 4 

This matrix product is evaluated as 
[D] = ±[C]±([LMU])*[B] 




where L is the lower triangular half of a banded 
symmetric matrix, and [U]=[L(t) ] without the diagonal 
terms of [L]. The matrix product is illustrated in the 
figures below. 


I— k— I 


l-“k— I 


I i 1 


J L 

i I 

I I 

j i 

B matrix 


1 

1 

1 

1 

1 

1 

1 

L 

t/////L 

1 

1 

1 

L 


B matrix 


I 

J 

1 00 // 

1 0 ///// 
ioo/y/z//- 

J L 

L matrix 


I I I 

I J L 

I /////I 
i iLLiiil 
I i 

I I I 

C matrix 


|0 |000| I I J L 

0 1 0/0 1 I I I to disk 

0I///I I l/////i 

0//I I i I from disk 

0| I I I 

^ 1 J L 

U matrix C matrix 


Because of the variable bandwidth of the [ L ] and [ U ] 
matrices, a partitioning of the matrices which allows 
full overlapping becomes impractical. In both of the 
products described above the available core area is 
divided into five equal partitions. Overlapped 
processing is employed as fully as possible. 
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712.3.2.5 Multiplication scheme 5 

_ ir-rrjfer-rzl 
I I I 

I _l L 

I XI //////// t 

xliiiilliil 
j I I 

I I 

I I I 

I I I 

1 J L 

B matrix 


1- 

j 

lXi5Ci 

"1 

— 

1 

l/|:| 

1 1 

1 

1 

l/|: 1 

1 

1//// 

1 

I/I : 1 

1 k 

1/ y / 

1 

I/I : 1 

1 

1//////Z 

1 

l/|: 1 

i 1 

1 


.. l/.l.: .! ■■ 

_1 1 

J 


A(t) matrix C matrix 

The same algorithm as for multiplication scheme 2 is 
used, except that in this case the [C] matrix is lower 
triangular. The [C] matrix partition contains y 
elements. The equations for optimal core usage are: 

W 4xk+y 

T (c) = xyt (c) 

T{t) = xkt (t) + t(a) 

T{c) = T(t) ; v^kt (t) ♦ 1 t(a) 
t (a) X t (c) 

^ = 0; X = 1 SQRT ft fa)) 
dx 2 kt (c) 



712.3.3 Scratch file usage 

The MULTIPLY Processor uses the following nvunbered 
random files for internal data storage: MULTF1, MULTP2, 

MULTF3, MULTF4, TABFLl and TABFL2. The files are 
accessed by the 1/0 routines REDER and WRTER. The 
contents of the files are illv\strated below. The 
storage formats referenced in this table are described 
subsequently. 


Mviltipli- 

cation 

Scheme 


MULTF1 


A Matrix 
Format 1 


A Matrix 
Format 1 


B Matrix 
Format 1 


C Matrix 
Records 

1 , 2 , 5 , 6 , 9 , 

10 , . . . 

Format 1 

A Matrix 
Format 1 


MULTF2 


C Matrix 
Format 1 


B Matrix 
Format 1 


C Matrix 
Format 2 


C Matrix 
Records 

3, 4, 7, 8, 

• mm 

Format 1 

B Matrix 
Format 1 


MULTF3 


B Matrix 
Format 1 


C Matrix 
Format 1 


B Matrix 
Format 1 


C Matrix 
Format 2 


MULTF4 I TABFL 1 | TABFL 2 

i I 

I I 

I I 

} Partition I 
I Sizes I 
I Format 4 1 


I Partition I 
1 Sizes ! 
I Format 4 | 
I I 

I Partition I 
I Sizes I 
j Format 4 i 


A Matrix I Partition (Additional 
Format 3| Sizes |A Matrix 
1 Format 4 jinfo. 

I (Format 5 


[Partition! 
I Sizes ( 
[Format 4 i 
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712.3.3.1 Storage format 1 


This format is used for rectangular matrices stored by 
rovs. Each file record contains a partition of the 
matrix consisting of full matrix rows. 

Word Contents 

1 Record munber 

2 Record length 

3 Pointer to first matrix element of record 

4 Row number of first matrix row in record 

5 Number of matrix rows in record 

6 Column number of first column in record 

containing a nonzero element 

7 Distance between first and last coliunn 
in record containing nonzero elements 

8-lfe Not used 

17-n Matrix elements stored sequentially 

by rows 

n+1 Integer checksum of elements 1 through n. 

712.3.3.2 Storage format 2 

This format is used for full (non-banded) symmetric 

matrices which are stored lower triangular by rows. 

Each row is fully contaxned in one record. 

Word Contents 

1 Record number 

2 Record length 

3 Pointer to first matrix element in record 

4 Row number of first row in record 

5 Number of matrix rows contained in record 

b“l6 Not used 

17-n Matrix elements stored sequentially by rows 

n+1 Integer checksum of elements 1 through n 

712.3.3.3 Storage format 3 

This format is xised for banded syinmetric matrices. The 

matrix is stored lower triangular by rows. Each row is 
fully contained in one record. In the description below 
references are to the [ B ] and [ C ] matrices of 
multiplication format 4. 

Word Contents 

1 Record number 

2 Record length 
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3 Pointer to first matrix element in record 

4 Row number of first row in record 

5 Number oJ matrix rows contained in record 

6-7 Not used 

8 Let NC^Hj designate the left-most nonzero 
column in the record. This word is a pointer 
to the [ B ] matrix record which contains row 
number NC^. 

9 Let NR0W designate the number of the first 
matrix row contained ir. the next record. 

This word is a pointer to the [C] matrix 
record which contains row nvunber NRj^W. 

10 L c LR0W designate the last matrix row in 
the record. This word is a pointer to 
the [ C ] matrix record which contains row 
number LK0W. 

1 1 Not used 

12 Same as word 9 

13 Same as word 10 

14 Same as word 8 

15-16 Not used 

17-n Matrix elements stor'^d sequentially by rows. 

Each row is stored left to right, starting 
with the first nonzero element and ending 
witri the diagonal element. 
n+1 Integer checksum of elements 1 through n. 

/ 1 2 . 3 . 3 . 4 Storage format 4 


This format consists of three records with the 
following contents: 

Record Contents 

1 Array containing the lengths of each [A] 

matrix record. 

2 Array containing the lengths of each [ B ] 
matrix record. 

3 Array containing the lengths of each [ C ] 

matrix record. 


712.3.3.5 Storage format 5 


This format is used while processing multiplication 
scheme 4. The file contains N0AREC+1 reco.'ds, where 
NjafAREC is the number of partitions of the [A] matrix. 

Record Contents 

1 Array N^AREC+1 long. Word i contains 

word 8 of record i+l of storace format 3. 
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Word N^JARIiC is zero, word Nj?AREC+1 
contains the integer checksum o£ words 1 
through N{dAKkC. 

j Each record j corresponds to record j-1 

(2<jiN^AREC+1) o£ storage format 3. The record is NRJJW+1 
words long, where NkpW is the nuidser of 
matrix rows stored in record j-1 of 
format 3. Each element contains the 
position (column number) of the first 
nonzero element in the corresponding 
matrix row. Word contains the 

integer checksum of the record elements. 

712.3.4 overlay Description 

712.3.4.1 OVERLAY (MULl^JLF, 1, J) - MULTPAC 

The only task performed by this code is to call the two 
secondary overlays. 

712.3.4.2 (OVERLAY (MULTfJhF , 1 , 1 ) - SETPARS 


This overlay performs the following functions: 

a. Decode and interpret the execution control 
parameters associated with the program call. 
Internal control information parauneters are set. A 
thorough checkout is performed on the matrix 
expression to be evaluated. 

b. Internal matrix buffer sizes are computed. The 
program attempts to allocate the optimal buffer 
sizes developed in section 712.3.2. If the actual 
core work area is too small to satisfy this 
requirement, the best possible buffer arrangement 
is adopted. 


712.3.4.3 (2tVERLAY (MULT0LF, 1, 2) - MATMULT 


This overlay is entered twice during the execution of 
the MULTIPLY processor. The task in (a) below is 
performed during the first entry; the tasks described in 
(b) and (c) during the second entry - 

a. The length of the core won ' area is computed and 
saved fc- use in overlay program SETPARS. 

b. A che; ' . s made to see if the evaluated matrix 
expression will result in a zero matrix. In this 
case a null result matrix is generated and further 
processing in the module aborted. 


. i 
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c. Matrix products are performed in the sequence 

sf>ecitied in the matrix expression. *rhe products 
will be added successively to the add matrix given 
in the matrix expression. If no add matrix is 
specified, a zero add matrix will be generated 
before multiplication takes place. Each matrix 
product is prefaced by the loading of the add 
matrix and the two product matrices, and followed 
by the unloadxng of the result. 


712.4 

COMMON BLOCK 

USAGE 


712.4.1 

/qWiPARS/ 

/YERRffR/ 


ATLAS system common blocks. 

712.4.2 

/KQBUKP/ 

/KQkNDM/ 

/EPAR/ 


described in section 100.2. 
Used for the matrix loading 


/EPAK3/ 


operation. The parameters 
apply to the input matrix of 
this operation. 

Used for the matrix unloading 


.-TflLNAM/ 


operation. The parameters apply 
to the output matrix of this 
operation. 

Contains file names of scratch 


/IPAR/ 


files - 

Used for the matrix loading 


/IPARB/ 


operation . The parameters 
apply to the output matrix of 
this operation. 

Used tor the matrix unloading 


/MASHTP/ 


operation. The parameters 
apply to the input matrix of 
this operation. 

Used in the matrix loading 


/MLTC^y 


operation . It determines 
whether a loaded matrix should 
be stored in a compressed 
format (zero elements deleted) . 
Contains control information 


/MLTEKR/ 


mostly extracted from the ATLAS 
control program statement. 
Co.itains MULTIPLY processor 


/RECPAR/ 


error flags. 

Contains natrix parameters 


/TEXT/ 


used to perform the actual 
matrix multiply operations. 
Contains text for error heading. 
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. .1 . 



1 C0NPARS 1 
1 KERK0R 1 
1 KQBUFP 1 
1 KURNDM 1 

X 

__ 

1 I 



i EPARB 1 



1 FILMAM 1 



1 IPAR I 



1 IPAKB 1 



1 MASHTP 1 



1 MLTQTO 1 

X 


t MLTERR 1 

X 


1 RECPAR 1 



1 TEXT 1 


__1 




i 
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713. RH03 PROCESSOR 


713.1 

713.1 


713.1 

713.2 


GENERAL INFORMATION 
. 1 Ptirpose 

Calculate unsteady loadings caused by motions of lifting 
surfaces with trailing edge controls based upon the 
subsonic Kernel function approach of reference 713-1. 

The pressure singularities at hinge line and side edges 
are extracted analytically as a preliminary step to 
solving the integral equation by collocation. 

The module calculates generalized aerodynamic forces for 
user supplied deflection inodes. Optional intermediate 
output includes: 

a. unsteady pressures at an array of points. 

b. sectional generalized forces. 

From one to four control surfaces on the half span can 
be accommodated. 

.2 Access 

Tills module is called from the ATLAS control program by 
the EXECUTE RH03 (plxst) statement (sec. 250, ref. 1-1). 

MATRIX ACTIVITY 



Name 

Description 

File 

Input 

1 

R30i000 

Input data case 

DATAKNF 

2 

RCmiOOO 

Input hinge rotation coefficients 

DATARNF 

3 

xxxxxxx 

Interpolation coefficients 

INTERNF 

In/Out 

1 

CMOOOOO 

C-matrix index 

RH03RNF 

2 

CMxOOOO 

C-matrix 

RH(?3RNF 

Output 

1 

ACMijOO 

Control matrix 

RH03RNF 

2 

DWOijkl 

Full downwash 

RH03RNF 

3 

DWMijkl 

Modi tied downwash 

RH(a»3RNF 




Name 

Description 

File 

4 

GFOijkl 

Generalized air forces 

RHPT3RNF 

5 

HCmijOO 

Cubic hinge rotation coefficients 

RHgrSRNF 

6 

MjaOi jOO 

Interpolated mode shapes 

RHJJ3RNF 

7 

PROijkl 

Unsteady pressure report 

RH03RNF 

8 

PEOijkl 

Pressure series coefficients 

RH03RNF 

9 

K30ij00 

Case and condition data 

RHprlRNF 

10 

Sfmijkl 

Sectional generalized forces 

RHJ23RNF 


A detailed description of the matrix fornats 
contained in reference 1-2. 

is 


713.3 PROGRAM METHC© 

The RH^3 module consists of a primary overlay, RH0III, 
and thirteen secondary overlays: 

INPREP ,MIPREP , DWPREP , PRSPREP , SGFPREP ,GFPREP , RDWRTC , 
CMCALC , PCJSEFF, PRESURE , SGF0»RCE ,GFj2tRCE , ERR0R 

713.3.1 0VERLAY (RH030LF, 1 , 0) - RH0II1 

RH01I1 defines the local labeled common blocks and calls 
the secondary overlays in the sequence required to 
complete the task (s) defined by the card input data case 
and the execution parameters. 

Note that secondary overlays 1 through 6 are Mach number 
and K-value independent and are called only once, 

713.3.2 gVERLAY (RHj2r30LF, 1, 1) - INPRE P 

INPREP assembles all case and condition data to direct 
the RH03 analysis : 

a. Checks execution parameters for a case number. 

b. Reads the designated data case, R30i000, from 
DATARNF. 

c. Interprets and stores the execution parameters. 

d. If vibration mode shapes were specified, reads them 
from INTERNF (sec. 150, ref. 1-1), checks the 
number of modes, and saves the array (s) on the 
internal scrat -h tile IFSFILE (SCOlRNF) . 
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e. Alternatively, it rigid body mode shapes were 

st'ecxtied, INl’KEP generates an array similar to the 
iNTERP^rLATljiJN motion point coefficients cind saves 
it on IFSFILE. 

713.3.3 (RHj^30LF, 1 , 2) -MIPREP 


Calculates control surface rotations for each control 

surface. 

a. Call AINTL, using the iiiterpolation coefficient 
array (s) read from IFSFILE, to calculate the 
streamwise slopes of the control surface modes at 
four equally spaced ^xiints on the hinge line. 

b. Repeat a. for the same four points to find the 
slopes or the modes on tlie surface to which the 
control surface is attached (control surfaces may 
be stacked) . 

c. Calculate the angles, 0, between the four pairs of 
slopes (optionally modified by any user supplied 
velocity profile) and then find the cubic 
coefficients of the V curve passing through the 
four points. The curve defines the rotations along 
the hinge line. 

o. Insert any hinge line rotations specified by card 
input data (optionally modified by any user 
supplied velocity profile). 

e. Write the hinge rotation coefficient matrix, 
HCmijOO, on KH(?3RNF and IFSFILE. 

t. Write the case and condition data array, R30ij00, 
on RH(?3RNF. 

I 

q. Write the control matrix, ACMijOO, on RH03RNF. 

7 13.3.4 0 VERLAY ( RH03<^F , 1 , 3 ) - DWPREP 

a. Read the main surface interpolation coefficient 

I array from IFSFILE and call AINTL to calculate the 

modal deflections and slopes at all downwash points 
on the main surface. 

b. Repeat a. tor each control surface- Note: the 

downwash points have oeen ordered such that they 

j are grouped: 

- main surface f>oints 
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- control surface 1 points 

- control surface 2 points 

etc. 

c. Optionally, modify slopes with user supplied 
velocity profile. 

d. Write the interpolated mode shapes, slopes and 
deflection arrays on the file RH03RNP with the name 
MJ^Oi jOO. 

e. Write tJie mode shapes on the scratch file DWSFILE 
(SC01SSF) . 

713.3.5 OVERLAY (RHO30LF. 1 .4) - PRSPREP 

It an unsteady pressure report was requested PRSPREP 
generates the preliminciry information (independent of 
Mach niomber and K-values) . 

a. Write the following arrays on the scratch file 
DWSFILE (SC01SSF) ; 

1. Y-BAR - values of pressure report chords 

2. X-BAR - values of pressure report points 

Perform steps o. and c. for each pressure report 
chord . 

b. Calculate assumed main surface pressure modes and 
write on DWSFILE. 

c. Calculate miscellcineous control surface information 
and the modified hinge line rotations for each 
control surface, and write on DWSFILE. 

71i.3.b OVERLAY f RH030LF . 1 . 5 ) - SGFPREP 

Ir sectional generalized forces (SGF) were requested, 
SGFPREP prepares preliminary information independent of 
Mach number and K-value. 

a . Write the Y-HAT values of SGF report chords on the 
scratch tile DWSFILE (SC01SSF) . Perform steps b. 
and c. for each chord. 

b, . For the assumed main surface pressure contribution, 

determine the chordwise integration grid, calculate 
the assumed main surface modes at the integration 
points, aJid combine with the specified qxiadrature 
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weights; calculate the modal deflections at 
integration points and canbine with the weighted 
assumed pressure inodes to form the chordwise 
integrals on a termwise basis, emd save the 
termwise integrals on DWSFILE. 

For each control surface; 

c. Determine condition-independent control surface 
pressure terms and chordwise integration grid, 
calculate the nxsdal deflections at integration 
ixjints and combine with the specified quadrature 
weights, calculate the control surface rotation at 
tile particular sectional chord in each mode, and 
save control surface information, integration 
points, modified hinge rotations, and weighted 
deflections at integration points on DWSFILE 
(SC01SSF) (see ref. ' 713-1) . 

713.3.7 (gVLKLAY (RHj33^ F. 1 , b) - GFPRE F 

GFPREF prepares a file of Mach number- and K-value- 

independent data tor later calculation of generalized 

airtoice matrices. 

For the main surface assumed pressure contribution, 

a. Determine the spanwise integration grid. Perform 
steps b. through d. for each chord. 

b. Calculate the spanwise pressure terms and chordwise 
integration grid. 

c. For each integration point, determine the chordwise 
pressure terms, form the assumed main surface 
inodes, and combine with the specified quadrature 
weights. 

d. For each integration point, calculate the modal 
deflection at integration points along the chord 
and accumulate the weighted pressure - modal 

def lection products . 

e. Write the matrix of termwise surface intf^rals on 
the scratch tile LWSFILE (SCOISSF) . 

For each control surface: 

f. Determine Uie spanwise integration grid. Perform 
steps q. through j. for each chord. 



g. Determine the control surface pressure terms and 
chordwise integration grid. Steps h through j are 
repeated for each integration point. 

h. Calculate the modal deflections at integration 
points and combine with specified quadrature 
weights . 

i. Calculate the control surface rotation at the 
integration chord in each mode. 

j. Write control surface information, integration 
points, modified hinge rotation, and weighted modal 
aef lections on DWSFILE (SCOISSF). 

713.3.8 0VERLAY (RHg30LF. 1.7) - RDWRT C 

Depending upon the value of the two variables ITHMAT and 
INDCM, set in the (1,0) overlay, RDWRTC does the 
following; 

INDCM Control sr.rtace indicator 
=0 - Main surface 

= j - Control surface j 

ITHMAT =0 - Read the C-matrix 

= i - Read the C-matrix with tlie name 

CMiOOOO from RH03RNF and save 
on the scratch file CMSFILE 
(SC02SSF) by rows. 

= -i - Read a C-rtiatrix from the 

scratch file CMSFILE by rows 
and then write it on RH03RNF 

with the record name CMiOOOO. 

Also write the C-matrix index 
array, CMOOOOO, on RH03RNF. 

713.3.9 0VERLAY (RH030LF, 1, 10) - CMCA LC 

CMCALC calculates a C-matrix associated with an assumed 
main surface or contro) surface pressure modes for a 
given planform, downwash point distribution, K-value, 
and Mach number. For each downwash chord point; 

a. Calculate terms in the downwaSh integral expression 
which are dependent only on the downwash chord and 
point . 


» 


A 
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b. Determine the spanwise integration grid- integration 
region endpoints, and quadrature. Perform steps c. 
through e. for each region. 

c. Determine integration chord locations and 
associated quadrature weight. 

d. Increment the row of the C-matrix by the weighted 
value of the spanwise integrand. 

e. Write the row of the C-matrix associated with the 
particular downwasti point on the scratch file 
CKSFILE (SC0 2SSF) . 

713.3.10 0VERLAY (RH030LF .1,11) - PC0E FF 

PC0EFF removes the step discontinuities from the 
downwash matrix due to any control surface rotation and 
solves the set of simultaneous equations for 
coefficients of the assumed main surface pressure modes. 

PC0EFF writes the following arrays on the file RH03RNF. 

DWOijkl - full do%<nwash natrix 
DWMijkl - modified downwash matrix 
iSOijkl - pressure series coefficients 

PC^EFF also writes on the scratch file CJ2IFFILE (SC02SSF) 
the coefficients of assumed major surface pressure modes 
to be read by PRESURE. 

713.3.11 jjVERLAY (RH030LF, 1, 12) - PRErfURE 

It an unsteady pressure report was requested PRESURE 
calculates the pressures based upon the data generated 
by PRSPREP and PCJ3EFF. 

For each main surface point, the main surface 
contribution to the pressvire is computed using a matrix 
of assumed pressure modes read from the scratch file 
DWSFILE (SCO 1SSF) ajid the pressure coefficients read 
from CiaFFILE (SC02SSF) . 

The previously calculated control surface information is 
read from DWSFILL (SCO ISSF) , the control surface 
contribution is calculated and added to that of the main 
surface. 

The pressure report matrix, PROi^kl, is written on 
RH(?3RNF. 
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713.3.12 0VERLAY (RHg30LF. 1. 131 - S6F0RCE 


Calculate sectional generalized forces (SGF) for a K~ 

value and Mach number. 

For each chord: 

a. Calculate the main surface contributior to the 
total integral by reading from DWSFILE (SC01SSF) 
the matrix of chordwise xntegrals generated in 
SGFPREP, and combining with the pressure 
coefficients read from C0FFILE. 

b. Read the precalculated information from DWSFILE. 

c. Calculate the control surface pressure at the 
quadrature point distribtition and multiply by the 
weighted deflections to generate the control 
surface contributions to SGF on the chord. Repeat 
steps b. and c. for each control surface. 

d. Write the SGF matrix, SFmijkl, on the file RH03RNF. 

713.3.13 OVERLAY (RH030LF. 1 . 14) - GFi^R CE 

GFjSRCE calculates the generalized force matrix for a K- 

value and Mach number. 

For each main surface integration chord: 

a. Multiply the chordwise integrals calculated in 
GFPREP by the various weighted modal deflections. 

b. Combine the results from a. with the pressure 
coefficients read from C0PFILE (SC02SSF) , and add 
to the general airforce matrix. 

For each control surface integration chord 

c. Read the previously calculated information from 
DWSFILE (SC01SSF) . 

d. Calculate the control surface pressure at each 
quadrature point, multiply by the weighted 
deflections and add to the generalized airf ore ; 
matrix. 

e. Write the generalized airforce matrix, GFOijkl, on 
the file RH03RNF. 
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3.14 0VERLAY (RHg30LF, 1 , 15) - ERRg R 

It an error is detected by any RHJJ3 nodule (except 
INPREP) the overlay ERtvJJR is called to print a 
diagnostic message before control is returned to the 
ATLAS control program. The error types include l/j0 
errors, SNARK errors, AINTL errors, (see description of 
AINTL, sec. 900), and errors resulting from singular or 
near singular matrices. 

4 COMMON BLOCK USAGL 

4.1 /C0NPARS/,/KQBUFP/,/KERR0R/, and /KORNDIV are ATLAS 
system common blocks, described in section 100.2. 

4.2 RH03 Common blocks; 


/BASIC/ contains the symmetry option and numeric constants 
such as (0.,0.), pi, pi/2, semi-span, Mach number, 
K-value, etc. 

/C0ND/ contains the arrays of K -values and Mach numbers. 

/C0UNT/ contains integer variables giving the sizes of RH03 
arrays or pointers to the current Mach numoer and 
K-values . 


/C\)UAD/ contains information pertinent to chordwise 
integration of the pressure kernel function. 

/CSGE0M/ contains geometry data for tbe control surfaces. 

/CSINF0/ contains miscellaneous calculated control surface 
data. 


/CSTERM/ contains constants required for control surface 
pressure calculations. 

/CBVALU/ contains variables associated with the chords used 
dviring calculation ot unsteady pressures, sectional 
generalized forces, and generalized forces. 


/bWCHD/ contains variables associated with a downwash 
point: geometry, chordwise pressure terms and 

their de.- ivative.^ , and the row of the C-matrix for 
the point. 


/ENDIT/ contains varic-bles used to print diagnostics in the 
overlay KKR0R •‘^rror number, error location, etc.) 


/FILES/ contains the names of all files used inside RH03. 


/HEDMX1/ cxjntains the list of variables used as header 
information for a MATRIX 1 formatted array. 

/INTCHD/ cx>ntains chord integration data. 

/KRNC(A'i/ contains variables used for kernel function 
calculations . 

contains geometry data for the main surface. 

/PPTI^NS/ contains the options specified by card input data 
or execution parameters . 

/QUADWTS/ contaj’'.s -quadrature weighting factors used by RH03 
ill the Integration scheme. 

/TABLE/ contains the C-matrix index used to identify C- 
ma-wrices and the data case/condition they 
represent . 
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714. STIFFNESS PROCESSOR 


714.1 GENERAL INFORMATION 


714.1.1 Purpose 


1. G« uerate the element stift-iess matrices 

2. Generate the element stress matrices 

3. Generate the element oeometric stillness raatrices 

4. Generate the treedom activity matrix, which indicates 
the Ireedoms that have structural or <^eometric 
stillness. 


714.1.2 Access 


Tlis module is called Irom the ATLAS Control program by the 
EXECUTE STIFFNESS (pi ist) statement (sec. 252, rel. 1-1) 


714.2 

MATP 

CTIVITY 



Name 

Description 

File 

Inpet 

1 

KPARMS1 

Data set parameters 

DATARNF 

2 

KNjaiALTa 

Nodal data 

DATARNF 

3 

KNCIOOa 

Nodal correspondence table 

DATARNF 

4 

KL0C0(Ja 

Local coordinate systems 

DATARNF 

5 

KSFOOIa 

Element data 

DATARNF 

6 

KM00001 

Material aata 

DATARNF 

7 

STOOIba 

Element stresses 

STRERNF** 

8 

KELEKEi 

Element keys 

DATARNF** 

9 

KCMSUMM 

Composite material data 

DATARNF 

10 

DCJ^SRba 

Load case correspondence 
label 

STRERNF** 

Output 

1 

KAOOO la 

Element stillness 

STIFRNF 

2 

GPOOO la 

Element stress 

STIFRNF 

3 

KGOOOIs 

Element geometric 
stillness 

STIFRNF 

4 

KFAVO la 

Freedom activity 

STIFRNF 

5 

AAOOOIa 

Element stillness 
translormation 

SCO 1RNF* 

6 

AGO CO la 

Element geometric stillness 
translormat _on 

SCO 1RNF* 

7 

LKOODIa 

Element local stillness 

SC01RNF* 

8 

Li .01a 

Element local stress 

SCO 1RNF* 
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9 

IFAVsss 

Interact freedom activity 
(in certain cases) 

STIFRNF 

10 

GFAVO Is 

Geometric freed can activity 

STIFRNF 

11 

RCMSUMM 

Composite material data 

DATARNF 

12 

UC|9(dRba 

Load case correspondence 
label 

STRERNF** 


A det:ailed description of the matrix format is contained in 
reference 1-2. 

• ihese matrices are written on STIFRNF only if the checkout flag 
is >3 . 

♦♦These matrices are used v^ien element geometric stiffnesses are 
generated. 

714.3 PKOGKAM METHOD 

The STIFFNESS module consists of a prinary overlay, STIFLEX, and 
seven secondary overlays, SETPARS, KGEN, PGEN, AGEN, GTRASNK, 
KGGEN, AKGGEN. 

714.3.1 (OVERLAY (STIF0LF, 1 .0) -STIFLEX 


a. Establishes module common blocks (includes putting 
values into ^^ISKC^IN/) 

b. Opens tiles 

c. hoops through secondary overlays 

d. Writes summary of core usage and CP time (if checkout 
flag is on, also writes this summary after each 
secondary overlay) . 

714.3.2 (^RLAY (ST1F0LF, 1,1) -SETPARS 

Establishes the values of /L0CPARS/. The variables are 
first set to the defaults, then modified to cor ply with 
the parameters on the EXECUTE STIFFNESS statement, 
transmxtted via /CJ^NPARS/. 

b. If the data set specified does not exist, SETPARS prints 
an error message, increments /KERRj?R/, and returns to 
STIFLEX. 

c. If a geometric stiffness matrix generation is requested, 
the specification of a loadcase and the existence of 
corresponding stresses is checked. If missing, error 
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message is printed, KERR0R incremented and return to 
STIFLEX called. 

It a hiuher order BRICK is specified, (more than 8 
nodes) , the buffer sizes for the output matrices are 
automatically set large enough to accommodate at least 
one such element. 


714.3.3 


Elem‘’'nt local stiffness, [ k ], iiatrix generator 

a. Sets vai'icibles equal to pertinent /L0CPARS/ values, 
e.g., buffer sizes, najnes, set number. 

b. Reads KPARMS 1 to get problem data, e.g., number of nodes 
and elements. 

c. Reads nodal data and KNCIOOx, the nodal correspondence 
table, and calls NCTFIX, wtiich retrieves the proper bits 
from block 3 of KNCIOOX and stores them as a set of 
direct pointers to the nodal data. 

d. Reads first blocks of element, and material data, 
establishes [k} matrix block, sets the flags, line 
counters, and indices, and calls GENK to generate the 
element local stiffness matrices. 

e. Checks flags upon return from GENK: 


flag : 
MBACK 
ISF1 
IKKI 


purpose: 

get new material matrix 
get more element data 
filled [k] bl^''X;write it out 
and start another. 


714.3.3.1 GENK: (FORTRAN subroutine) 

a. Processes the elements in internal order, first checking 
that material and element data are available for the 
current element. If not, sets tlags as indicated in 
KG’iN, above, and returns to KGEN. 


With all the necessary data available, GENK transfers to 
the element generating SXXX routines, where XXX 
represents the element type (Rj3D, BRICK, SPAR, etc. ) . 

These, respectively, generate the [k] matrices directly 
into tlie [k] matrix block. The element routines check 
for space in the block. 
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c. liiSerts tfte ID word (as described in ref. 1-2) at the 
beginning of each matrix, updates the counters and 
indices to reflect tiie additional stored information and 
proceeds to t)ie next element. Note: KGEN,GENK, and the 

element routines use conmon block /ST1FC0M/ to transmit 
flags, counters, and other needed data. For a 
description of /STIPCpfV' see section 714.4. 

714.3.4 0VERIAY (ST1F0LF,1,3) -PGEN 

Element local stress, [p], natrix generator 


a. Begins with the saune steps as RGEN (secs. 714.3.3 a, b, 
c) . 

b. Heads first blocks of element, and material data, 
establishes [k] matrix block, sets the flags, line 
counters, and indices, and calls GENP to generate the 
element local stress matrices. 


c. 


Checks flags upon return from GENP; 


flag: 

MBACTC 

1SF1 

1PP1 


purpose : 

get new material matrix 
get more element data 
filled [p] block ;write it out 
and start another. 


714.3.4.1 GENP: (FjZiRTRAN subroutine) 


a. Processes the elements in internal order, first checking 
that material and element data are available for the 
current element. If not, sets flags as indicated in 
iKiEN, above, and returns to PGEN. 

b. With all the necessary data available, GENP transfers to 
the element generating PXXX routines, where XXX 
represents the element type (f^M), BRICK, SPAR, etc. ) . 

These, respectively, generate the [p] matrices directly 
into tSie [p] matrix block. Tlie element routines check 
for space in the block. 

c. Inserts the ID word (as described in ref. 1-2) at the 
beginning of each matrxx, updates the counters and 
indices to reflect the additional stored information and 
proceeds to the next element. Note; PGEN, GENP, and the 
element routines use common block /STRECJSM/ to transmit 
flags, counters, and other needed data. For a 
descrrption of /STREC0K/ see section 714.4. 
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3.5 0VERLAY (STIF0LF, 1 ,4) -AGEN 

Element local to analysis frame transformation matrix 

generator 

a. Begins with the same stej^s as KGEN (sec. 714.3.3 a,b,c) . 

b. Checks the remaining space in core, eind if there is 
room, reads tlie first stiffness element matrix, KSFXXXX, 
and establishes an element tramstormation ([A]) matrix 
block . 

c. Processes the elements in internal order: gets element 

type, number of ncdes, and position in KSF matrix, 
extracts nodes from KSF, extracts nodal geometry from 
RN^ALIT:, and calls the element matrix generating 
routine, AXXX, where XXX represents element type. 

d. Checks flags on return from element routine: 

flag: purpose: 

ID1 shows error or not enough room 

for [A] 

K^RD analysis frame coordinates used 

It there is not enough room, the current block is 
written to the appropriate file, and a new block is 
started. 

If analysis frame kinenwitics are indicated, ALjaCAL is 
called to perform the transformation. This results in 
the replacing of [A] with [A]*, the transformation 
between local and analysis frame coordinate systems. 
AL(2fCAL calls GRAB, an ATLAS system routine, to produce 
the required transformation from the user -specif ied 
local coordinate system, stored in KL^C^a. 

e. Calls MJ3VAIN to generate runcodes for each column of 
[A]. A runcode contains the node and freedom number, 
each packed into thirty bits. M0VA1N also compresses 
out zero columns of [A]. 

f. Stores ID word at beginning of eich matrix in [A.]. 

3 . t) gVERLAY {STIFtALF, 1 , 5^ -GTRASNK 

Element stress [P], stiffness [K], and geometric stiffness 

matrix [KG], matrix generator 
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a. Establishes nutrix names, dimensions and 1/0 files from 
/143CPARS/ 

b. Establishes positions in core and flags indices and 
covmters for element [k] or [kg] and [A] matrices, and 
tor intermediate storage of the [k][A] or [kg][A] 
product . 

c. If [K] or [KG] required, then the [K] or [KG] block and 
the active freedom table are jjnitialized together with 
associated indices and counters. 

d. If [ P ] requxred, then the [p] block is initialized and a 
position in core established for [P]. Indices and 
counters are initialized. 


e. Calls GTRAFTO to generate the required matrices. Comroon 
block /GTRAC0M/ is used to comnunicate flags, counters 
and indices with GTRAPTN. 


f. Checks flag KRET upon return from GTRAFTN 


KRET value; 
< 0 
1 
2 
3 
U 
5 

6-10 


11 

12 


purpose: 

Computations completed 
[k] or [kg] matrix block exhausted 

[p] matrix block exhausted 

[A] matrix block exhausted 

[P] matrix block filled 

[K] or [KG] matrix block filled 

Refers to matrix block indicated by 
(value -5) but to clear from core 
for efficient core management 
Set up bigger [kA] or [kGA] block 
If applicable, wite active freedom vectors 


714.3.6.1 GTRAFTN; (FORTRAN subroutine) 


a. Processes the matrices in internal order, using GTRASNK 
to perform all 1/0 and core management. 

b. Locates the [A] matrix in block and extracts matrix 
sizes. The word “locates" designates the reading of a 
new block if required. 

c. If stress run only, skips to step j. 

d. Locates the [k] or [ xg ] matrix in the block and extracts 
matrix parameters . 

e. Checks on space in the scratch area and forms the [k][A] 
or [kg I. a] product by call to MULTKA. 
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f. Checks tor space in [K] or [KG] matrix block and forms 
the matrix product by repeated calls to VTMEl, storing 
directly into the block. 

q. If [K] matrix generation calls ZR^MDEL to locate 

diagonal elements of [R] whose values are less than a 
given epsilon (presently 10~»2) tiroes the largest 
element on the diagonal » the rows and columns that 
correspond to such elements are deleted from the [K] 
matrix. 

h. The run-codes are taken from the [A] matrix and written 
into the beginning of the [K] or [KG] matrix. If the 
rows have been removed by step g, the rxmcodes are 
adjusted accordingly and in KFAWXX, the active freedom 
vector. 

i. If no stress matrices cire to be generated, skip to step 

n. 

j. Locates the [p] matrix in block and extracts the matrix 
sizes. Also, checks for space in [P] matrix block. 

k. If [kA] matrix needed euid not computed, performs steps d 
and e. 

l. Multiplies [p][A] or [p][kA] using MAMULT. 

m. Packs ID word and copies runcodes from [A] into [P]- 

n. Checks whether all elements are processed and if so, 
causes the last blocks ^o be written. Also causes 
KFAVXXX to be written, if appropriate, and also IFAVXXX, 
if appropriate. 

714.3.7 0VERLAY (ST1F0LF, 1 .6) -KGGEN 

Element local geometric stiffness, [kg], matrix generators. 

a. Begins with the same steps as KGEN (sec. 714.3.3 a,b,c) 

b. Read first partition of the matrix of stresses, 
establishes the [kg] matrix block and reads the first 
block of element data. 

c. Extracts the number of stresses per element from the 
element key matrix. 

d. Initializes counters, flags and indices and calls GEKKG 
to generate element local geonetric stiffness matrices. 




> 
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e. Checks flags upon return from GENKG 


f laa: 

purpose : 

ISFi 

Get more element data 

1ST1 

Get more stresses 

1KK1 

Filled [kg] block; 


write it out and 


start another 


714.3.7.1 GENKG: (FJ3RTRAN subroutine) 

a. Processes the elements in internal order, first 
extracting nodal data and property data for current 
element. 

b. Transfers to the element generating GSXXX routines, 
where XXX represents the element type (R0D, BEAM, etc.) . 
These, respectively, generate the [kg] matrices directly 
into the [kg] block. The element routines check for 
space in block. 

c. Inserts the ID word (as described in ref. 1-2) at the 
beginning of each matrix, updates covinters and indices, 
checks if new element matrix partition needed and if so, 
causes it to be read, then checks if a new matrix of 
stresses is needed and if so causes it to be read. 

KGGEN and GENKG and the element routines use the common 
block /KGCJSM/ to transmit flags, counters and other 
needed data. For a description of /KGC(2M/ see section 
714.4. 

714.3.8 ( OVERLAY ( ST1F0LF ,1,7) -AKGGEN 

Element local to analysis frame transformation matrix 

generator for geometric stiffnesses. 

a. Begins with the same steps as KGEN (sec. 714.3.3 
a,b,c,d) 

b Initiates flags, counters, etc., and calls GENAKG to 
generate '.a element transformation matrices. 

c. Checks L_..gs upon return from GENAKG 

flag; purpose: 

lEFl Get more element data 

1AA1 Filled [AG] block; write 

it out and start another 
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714.3.8.1 GENAKG (FJ3RTRAN subroutine) 

a. Processes the elements in internal order » first 
extracting nodal data for the current element. 

b. Transfers to the element generating AKGXXX routines, 
where XXX represents the element type (R0D, BEAM, etc.) . 
These, respectively, <j«snerate the [AG] matrices directly 
into the [AG] block. They also check for space in block 
and if not ro<xn, cause 6ENAKG to return to AKGGEM for 
writing of block and start a new block. 

c. If analysis frame kinenatics are indicated, Al^CAL is 
called tc perform the transformation from element local 
coordinates to node analysis frame coordinates. This 
results in replacing the element routine generated 
matrix by one postmultiplied by the appropriate 
transformation matrix. Al^ATE calls GRAB, an TLAS 
system routine, to generate the required transformation 
matrices. This step is identical to the one performed 
by AGEN. 

d. Corrects the transformation matrix for offset effects by 
use of subroutim )3FFTRAN. 

714.4 COMMON BLOCK USAGE 


1 

Name 

1 
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(STIF0LP) 







J_ 
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1 

X 
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1 


1 


1 

1 
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1 

X 

1 

X 

X 

X 

X 

1 

X 

1 

X 

1 

X 

1 

1 
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1 


1 

X 

X 

X 

X 

1 

X 

1 

X 

\ 

X 
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X 
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X 

X 

X 

X 

1 

X 

1 

X 

1 

X 

1 

1 
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1 

X 

1 


X 

X 


1 


1 


1 


1 

1 
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1 

X 

1 


X 

X 

X 

1 


1 

X 

1 

X 

1 

1 

L0CPARS 

1 

X 

1 

X 

X 

X 

X 

1 

X 

1 

X 

1 

X 

1 

1 
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1 

X 

1 


X 

X 

X 

1 

X 
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X 

! 

X 

1 

L 
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X 
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1 
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1 
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1 
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X 
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1 
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1 


1 


X 

X 

X 

1 

X 

1 

X 

1 

X 

1 

1 
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1 


1 


X 



1 


1 


1 


1 

1 
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1 


1 



X 


1 


1 


1 


1 

1 
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1 


1 


X 

X 


1 


1 


1 


1 


TRIARG 

JL 


_L 


X 

L_x 


J 


JL 


J, 




714. S 



714.4.1 


/KLRR0R/,/KgKNDM/,/KQBUFP/./r’(»«P^T^.3/» are ATLAS system 
common blocks, described in section 100.2. 


/Q^NPARS/ is tilled by the ATLAS (0,0) overlay with the 
contents of the EXECUTE STIFFNESS statement. 

/KERRJJk/ contains the variables KERR^ AND KWARN, which 
are incremented whenever the processor encovmter.- 
problems and an error message is written. 

714.4.2 /L0CPARS/,/CjaREUSE/, and /MSKOpN/ are used throughout 
the processor. 

/I^CPARS/ contains parameters which control the 
execution of the processor. Biese include buffer sizes, 
input/output file ncunes, and other control information. 
/L0CPARS/ is established by SETPAKS, from defaults and 
the /C$*NPARS/ specifications . 

/C^REUSEx' transmits core usage information from the 
secondary overlays to ETIFLEX, where it is included in a 
message printed when the checkout switch is op. 

/MSKCPN/ establishes standard maskinn variables for 
masking 1 to bO bits. These are initialized by STIFLEX. 

714.4.3 /yrSARC/,/GENSCRA/ and /FLXINT/ are common blocks 
available throughout the processor but used for special 
purpose . 

/GENSCRA/ is used as a scratch area by KGEN,PGEN, 
AGEN,KGGEN and AKGGEN, as well as their generating 
routines . By the appropriate use of EQUIVALENCE 
statements between locations in GENSCRA and sxibroutine 
variables, core usage can be reduced. 

/QTSARG/ is used by the GPLATE routines. By positioning 
it next to /GENSCRA/ in core, and dimensioning it (1) , 
the two blocks are forced to share virtually the sane 
core . 

/FLXINT/ IS the communication between some element 
stiffness generating routines (SB£AM,SR0D,SSPAR, SSR)ZID) 
and FLFJ}, a routine which evaluates certain integrals in 
the flexibility formulation. It is initialized by 
STIFLEX. 

714.4.4 /STIFC53M/,/STRECJ3M/,/KAD(aPE/,/GTRAC)2JM/,/KGC0M/, are used 
to transmit information between the secondary overlays 
and the generating or computational routine in both 
ways. They are local to the respective overlay. 


714.10 


/STIFC^/ is \ised in KGEN. It contains information such 
as element nodal data, properties, material data, 
pointers and flags. 

/STREC0M/ is used in PGEN. It is similar to /STIFC0M/. 

/KAD(2P£/ is vised both in AGEN and in AKGGEN. Both 
occurances are identical. It contains information 
similar to that of /ST1PC0M/, with exceptions for 
aiaterial data, active nodes, etc. 

/GTRACSW/ is used in G'TOASNK. It contains information 
such as names, position references, locations, 
dimensions etc. of matrices being processed. 

/KGCpfM/ is used in KGGEN. It is similar to /STIFC^M/. 

714.4.5 /BRICKq0/,/MAQ3M/f/TOANSF/ and /TRIARG/ are common 
blocks associated with particvilar subroutines . 

/MAC0M/ is used to transmit matrix dimensions avnd 
skipping factors to the ATLAS general purpose matrix 
multiply routine, MAMULT. 

/TRANSF/ and /TRIARG/ are used by the subroutine QTSHEL 
which is the generating routine tor the GPLATE stiffness 
and stress matrices. 
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715, 


STRESS PROCESSOR 


715.1 GENERAL INFORMATION 

715.1.1 Piirpose 

715.1.1.1 For a Boundary Condition Stage: 

1. Assemble free, retain, and support displacement 
matrices into one total displacement natrix. 

2. Compute element stresses by multiplying element 
local stress matrices by displacements and then 
adding initial stresses computed in the LOADS 
module. 

3. Compute element nodal forces by multiplying element 
stiffness matrices by 

displacements. 

715.1.1.2 For a Superposition Stage (SUPSTAGE) : 

1 . Generate n single matrix of displacements for all 
active, structural freedcms for selected SUPSTAGE 
components . 

2. Generate element stresses either by c<xnputation 
from the superimposed displacement or by 
superimposing previously-calculated stresses for 
selected SUPSTAGE conponents . 

715.1.2 Acces s 

This module is called from the ATLAS Control program by 

the EXECUTE STRESS (pi ist) command (sec. 254, ref. 1-1). 


715.2 


MATRIX ACTIVITY 
Neime 


Description File 


input 

1 

2 

3 

4 

5 




KPARMS1 

KRFVOba 

KFATOba 

KLCTOOa 

ISSCsss 

1SSSC0R 


Parameter matrix DATARNF 

Retaxned freedom vector DATARNF 

Freedom assignment table MERGRNF 

Element correspondence table DATARNF 

Substructtire correspondence DATARNF 

table 

Substructure control table DATARNF 
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7 

KSFOOIa 

KSF matrices in internal 
order 

DATARNP 

8 

GPOOOIa 

Element local stress matrix 

STIFRNF 

9 

ISrOlba 

Initial stress control 
matrices 

L{9ADRNF 

10 

ISOOIba 

Initial stress matrices 

Lj9ADRNP 

11 


Loadcase correspondence table L0ADRNF 

12 

1LCL>>SS 

Loadcase correspondence rcdsle 
Displacement User Matrices 
free displacements 
retain displacements 
support displacements 

DATJJINP 

13 

SULCTba 

Super^josition loadcase 

correspondence table 

DATARNP 

14 

IFATSSS 

Freedom assignment table 

MERGRNF 

15 

IRFVSSS 

Retained freedom vector 

DATARNP 

1t> 

KAOOOIa 

Element stiffness matrix 

STIFRNF 

17 

SUPEKba 

Superposition data with 
known or xmknown factors 

DATARNP 

18 

SUPSTGa 

Stage type and unknown 
factors key 

DATARNP 

19 

SUDISba 

Superposition displacement 
constraints 

DATARNP 

20 

SUSTRba 

Superposition stress 

DATARNP 



Name 

Description 

Pile 

Output 

1 

SLCSTba 

Stress loadcase specification 

STRERNF 

2 

DCNTRba 

table 

Displacement control matrix 

STRERNF 

3 

DiOOIba 

Displacement matrices 

STRERNF 

4 

SCNOIba 

.A'ress control matrices 

STRERNF 

5 

STOOIba 

(internal order) 
Stress matrices (internal 

STRERNF 

b 

SUELCTa 

order) 

Stress user element 

STRERNF 

7 

SLLSITa 

correspondence table 
Stress eleiaent sorting index 

STRERNF 

8 

K£C0MAa 

table 

Flexible element control 

STRERNF 

9 

KSFOO la 

matrix 

KSF matrices in user order 

STRERNF 

10 

USOOIba 

Stress matrices (user order) 

STRERNF 

11 

USCOlba 

Stress control matrices 

STRERNF 

12 

DC;9(2aU)a 

(user order) 

Loadcase correspondence table 

STRERNF 
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13 

FCNTHba 

Force control matrix 
(internal order) 

STRERNP 


14 

F0OO1ba 

Force matrices 

(internal order) 

STRERN^ 

i/-' 

.V 

15 

Ui'CO Iba 

r-»ice control matrix 
(user order) 

STRERNF 


1b 

UFXXXba 

Force matrices 

(user order) 

STRERNF 


17 

UDCO Iba 

Displacement control matrix 
(user order) 

STRERNF 


18 

UDXXXba 

Displacement matrices 
(user order) 

STRERNF 


19 

SUPERba 

Superposition data with 

STRERNF 


input or confuted 
factors 


A detailed description of the matrix formats 
is contained iii reference 1-2. 


f 






715.3 PROGRAM METHOD 

The STRESS module consiscs of a primary overlay, 

STREJ3LF', and ten secondary overlays, SETPARS, RETS0RT, 

DEFLEC, LCRFJW, STRESS, UJZIRDER, MULDIS, SUPRFAC, 

SOPRDIS, and SUPRSTR. 

715.3.1 OVERLAY ( STRE0LF ,1,0) - STRE0L P 

Calls secondary overlays as needed. 

715.3.2 OVERLAY (STPE0LF , •» . 1) - SETPAR S 

a. Reads the param.. ^.ars in the EXECU.E STRESS 
statement and seis up local parctmeters in the 
/STRPARS/ common b?cck. 

b. Checks for the presence of all matrices needed for 
input in all other overlays of the STRESS module. 
Stores index and file names in /STRPARS/. 

c , Sets up <-he stres., loadcai.e specification table 
when sp.!cified loadcaacc- are requested. 

715.3.3 0VERLAY (STRE(?LF,1 ,2) - R ETS0R T 

a. When retained freedom dispiacem^^nt' are present and 
not in internal nodal order, tnis overlay sorts the 
displacements in' internal nodal order The ATIjA.„ 


» 
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routine SHELL is used to determine the sorting 
ort' 'r of the displacements. 

b. When all sorted matrices fit in core, sorting is a 
simple operation of moving displacements from their 
old t'^sition to their new position using two 
routines INDSET and INSERT. 

c. When core limitations prevent sorting as in b, two 
additional routines aid in the sorting, INFIND and 
fWTFlND. Available core is fully used by INFIND 
controlled sorting. Matrices which do not fit in 
core are temporarily stored on scratch while 
^WTPIND controls input/output and number moving. 
Local common block /FINDPAR/ passes parameters 
between routines. 

715.3.4 gVERLAY(STREQLF.1.3) - DEFLEC 

a. Displacement partitions are assembled on a freedom 
by freedom basis. The freedom assignment table has 
each node's freedOTis broken down into 4 categories 
- not active, free, retained, or supported. The 
main program does matrix input/output only while 
the routine DISMERG does the actual matrix 
assembling . The local common block /MERPARS/ 
transmits parameters between DISMERG and DEFLEC. 

715.3.5 gVERLAY(STREgLF,1,4) - LCREMgV 

a. When stresses are not wanted for all loadcases, 
this overlay is called. Its function is to modify 
tfie displacement matrices by removing all loadcases 
not requested. The main program does matrix 
input/output while the routine SLCDISP does the 
actua"', matrix modifications. 

b. The modified total displacement matrices and their 
control matrix are written on scratch, 

715.3.6 gVERLAY(STR£0LF,1,5) - STRESS 

a. This overlay calculates the element stresses by 
multiplying the local element stress matrices 
GPOOOIa from STIFRNF by the total displacement 
matrices. Once the multiplication is completed, 
initial stresses, if any, are added. The main 
program does all matrix 1/0 while five subroutines 
do all other functions. 


C 
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b. Bie code is designed so that if all needed 
displacement matrices will not fit in core at one 
ti.iie, matrix 1/0 is minimized. This is 
accomplished l*y taking advantage of the banded 
properties of the element stress matrices. As soon 
as STRESS is done with a displacement partition, 
its position in core is filled by the next 
partition not already in core. Thus, a range of 
nodal displacements "moves" with the program as it 
calculates the stresses element by element. When a 
displacement matrix not in the "nodal range" is 
required, it is fully utilized by all elements in 
the current stress matrix. 

c. The routine SCSETOP sets up the stress control 
matrix and determines an "element range" for which 
stresses can be calculated at the current time, 

d. The routine KULTSET sets up a matrix MULTAB which 
contains information on how the stress and 
displacement matrices should be multiplied. 

e. The routine MULCNTR, by using MULTAB, calls the 
AITAS routine MAMULT to do the actual 
multiplication. It also transmxts 1/0 requests for 
displacement matrices to the main program thru the 
local common block /MULPARS/. 

f . The flow in the progiam goes through SCSETUP, 
MULTSET, and MULCNTR in a cyclic fashion as the 
"element range" moves from the first element to the 
last. 

g. After all multiplxcation is completed, the routine 
ADDSIGO adds in initial stresses to the results. 

715.3.7 OVERLAY (STRE0LF, 1.6) - U0RDER 

a. Forms an element correspondence table using the 
local routine SMASK and the library routine ESORTI . 

b. Forms an element sorting index table using SHELL. 

c. Forms K£.- i- itrices in user element order using the 
library routine KSFREOR* 


» 


I 
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d- Foims user ordered stress and stress control 

matrices using the local routines SPLIT and GLUE 
and the library routine SJ^RD. 

e. Prepares the force control matrix for sorting in 
the routine SPLITF. 

f. Uses S^RD to sort forces and their force control 
matrix. 

g. Reformats the control matrix in the routine GLUEF. 

h. Prepares for displacement sorting in the routine 
DCSPLIT. 

i. Uses S0LRD to sort displacements and the control 
matrix. 

j. Reformats the displacement control matrix in the 
routine DCGLUE. 

715.3.8 0VERLAY(STRE0LF,1,7) - MULDIS 

a. This overlay calculates element nodal forces by 
multiplying the element stiffness matrices by the 
displacements. The core management logic is 
similar to that used in the STRESS program. 

b. The routine MULSET sets tlie common block MULPARS 
and all pointers needed for the multiplication. It 
also sets up the force control matrix. 

c. The routine MULD0 does the controlling of the 
multiplication by making calls to MAEXPND for 
expansion of a column in a lower triangular matrix 
and calls to MAMULT for the multiplication. 

715.3.9 CrVERLAV (STREjaLF. 1 .10) - SUPRFAC 

a. This overlay updates the superposition data matrix 
SUPERba from file DATARNF and writes it out on file 
STRERNF. The main program does all matrix 
input /out put except for constraint data which is 
managed by CJ#JSTR when unknown loadcase factors are 
present. Unknown factors (if any) are calculated 
and replaced in the SUPERba output matrix. 

’ b. Routine SUPRREP replaces user ID with internal ID 

^ for all component loadcases in SUPERba matrix. 
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c. Icoutine CJWSTR is called when unknown factors are 
present in the SUPERba matrix. It generates the 
coefficient scratch matrix and the constraint 
scratch matrix which are solved in SUPRFAC to 
pxoduce the calculated factors. Routine EXPAND is 
called by C0INSTR to return the SCLSTba matrix index 
Lot a candidate loadcase. 

d. Routine FACT0RS replaces unknown factors (if any) 
with computed factor values in SUPERba matrix. 

e. Routine KEF0RMA reformats the SUPERba matrix. The 
ccanponent loadcases which were collected into one 
data block per superposition loadcase are now 
collected into one data block per active stage. 

715.3. “O gVERLAY(STRE0LF.1.11) - SUPRDIS 

a. This overlay performs superposition to form one 
stage of displacements. The main program does 
matrix inpur/output and two subroutines do all 
other functions. 

b. SUPGDCM generates a displacement control matrix and 
a veer or of number of freedoms per partition of 
superimposed displacements for one superposition 
stage. Routine SUPDISP does the actual 
superposition of displacements. 

715,3.11 gVERLAY(STR£gLF.1 ,12) - SUPRSTR 

a. This overlay performs superposition to form one 
stage of stresses. The main program reads in the 
superposition matrices SUPSTGa and SUPERba. 

b. AliDITUP reads in the stress and loadcase data to be 
extracted from each component stage and generates 
an output stress matrix for the one superposition 
stage. Routine ADD^E will add all loadcases 
belonging to one stage to the stresses in the 
output matrix. 




I 
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COMMON BLOCK OSAGE 


J I 0VERLAY : STRE0LF L 


1 NAME 1 

1,0 1 

h. 

lU 


1 

Irl 

M1,5.I1,( 

s|i 


1^10 J 

1,11 

11,12 

J. 

|/KERRJ2nR/ 1 

X 1 

X 

1 

X 1 X 

1 

X 

1 

X 1 X 

1 

X i 

X 1 

X 

1 X 

1 

l/qjNPARS/l 

X 1 

X 

1 

1 

1 


1 

1 

1 




1 

1 

l/KQBUFP/ 1 

X 1 

X 

1 

X 1 X 

1 

X 

1 

X 1 X 

1 




1 

1 

l/KORNDM/ 1 

X 1 

X 

_L 

X 1 X 

J. 

X 

_L 

X 1 X 

_L 

jlJL 

X 1 

X 

1 X 

_L 

1 /STRPARS/ 1 

X 1 

X 

1 

X I X 

1 

X 

1 

X 1 X 

1 


X 1 

X 

1 X 

1 

l/FINDPAR/l 

1 


1 

X 1 

1 


1 

1 

1 




1 

1 

1 /MERPARS/ 1 

1 


1 

1 X 

1 


1 

1 

1 




1 

1 

1 /SLCPARS/ 1 

1 


1 

1 

1 

X 

1 

1 

1 




1 

1 

1 /MULPARS/ 1 

1 


1 

1 

1 


1 

X 1 

1 




1 

1 

l/MACPM,' 1 

1 


1 

1 

1 


1 

X 1 

1 

X I 



1 

1 

|/S;3RTPAR/| 

1 


1 

1 

1 


1 

1 X 

1 




1 

1 

1 /FILES/ 1 

X 1 

X 

1 

1 

1 


1 

1 

1 




1 

1 

l/F(9RPARS/| 

i 


1 

1 

1 


1 

1 

1 

X i 



1 

1 

l/SUPERPjat/l 

1 


1 

1 

I 


1 

( 

1 


X i 


1 

1 

l/SUPERDI/l 

1 


1 

1 

1 


1 

1 

1 



X 

1 

1 

J/gUPEfilMZl 

L 



1 

1 


_L 

_L_ 

_L 

1 



.J x_ 

J. 


715.4.1 /KEKRjaK/,/C^PAi<S/,/KQBUFP/,/KyRNDM/ are ATLAS system 
cammoii blocks described in section 100.2. 

715.4.2 /STRPARS/ is vised by all overlays of the STRESS module. 
It contains control parameters, file names, index names, 
buffer sizes, and partition nvmbers, all set by the 
SETPAKS overlay. 

/FINDPAK/ is used to pass parameters and control 
information bet%#een the SNARK program RETS0RT and its 
two subroutines INFIND and JJUTFIND. 

/MERPARS/ is used to pass parameters and control 
information between the SNARK program DEPLEC and its 
subroutine DISMERG. 

/SLCPARS/ is used to pass parameters and control 
information between the SNARK program LCREM0V and its 
subroutine SLCDISP. 

/MULPARS/ is used to pass parameters and control 
information between the SNARK program STRESS eind its 
subroutines MULCNTR and MULTSET. 

/MAC^M/ passes parameters between the ATLAS routine 
MAMULr and the routine MULCNTR. 
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/^^ITPAR/ passes parameters between the ATLAS library 
routine S0BRD and the program U0RDER which calls S0ERD» 

/FILES/ holds array space in cxamnon for use in calls to 
FILEADD. 

/Fj^PARS/ passes parameters between the SNARK program 
MULDIS and its subroutines MULSET and MILLO0. 

/SUPERP0/ is used to pass parameters and control 
information between the program SOPRFAC and its 
subroutines . 

/SUPERDI/ is used to pass parameters and control 
information between the program SUPRDIS and its 
subroutines . 

/SUPEKIM/ is used to pass parameters and control 
information between the program SUPRSTR and its 
subroutines . 




» 
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716. VIBRATION/BUCKLING PROCESSOR 


716.1 GENERAL INFORMATION 

716.1.1 Purpose 

1. Generate the frequency (eigenvalue) matrix. 

2. Generate the mode (eigenvector) matrix. 

716.1.2 Access 

T}xis modiile is called from the ATLAS control program by 
the EXECUTE VIBRATIJJN (plist) or EXECUTE BUCKLING (pli St) 
statement (sec 258 and 208, ref. 1-1). 

716.2 MATRIX ACTIVITy 


Name Description 


File 


Input 

1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 
9 . 

10 . 

Output 

1 . 

2 . 

3. 

4. 

5. 

6 . 

7. 

8 . 

9. 

10 . 


xxxxxxx 

xxxxxxx 

xxxxxxx 

SNKddda 

KRFVOba 

KKpALTa 

KNCIOOa 

TAPLWTa 

KLiaiq9i9a 

KiPARMSI 


Mass matrix 

Stiffness or flexibility matrix 
Geometric stiffness matrix 


Nodal data subset 
Retained freedom vector 
Nodal data 

Nodal correspondence table 
Condition summary 
Local coordinate system 
Mass module control data 


DATARNF 

DATARNF 

DATARNF 

DATARNF 

MASSRNF 

DATARNF 

DATARNF 


FREQSxx Eigenvalues 

M^DESxx Eigenvectors 

SMdddxx Subset node shape 

GMASSxx Generalized mass 

GSTIFxx Generalized stiffness 

TJJTWTxx Total mass 

SFdddxx Subset freedom and node 
numbers 

VSETCJ3N Vibration set conditions 
BSETC^ Buckling set conditions 
EIGENxx Eigenvalues 


VIBRRNF 

VIBRRNF/BUCKRNF 

VIBRRNF 

VIBRRNF 

VIBRRNF 

VIBRRNF 

VIBRRNF 

VIBRRNF 

BUCKRNF 

BUCKRNF 


Where xx is the vibration or buckling set nvimber. 


A detailed description of the matrix formats is 
contained in reference 1-2. 
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7 1 to . 3 PROGPAM METHOD 

This module consists ot a prinery overlay, VIBRPRG, and 

six secondary overlays, PICKUP, EIGENC, EXPAND, RIGIDBM, 

EQCHECK, and PSUBSET. 

716.3.1 OrVERLAY VIBROLF (1 ,0) /BUCKdLF ( 1.0) - VIBRPRG 

a. Establishes the FET (file environment table) and 
associated buffers for the seven sequential blocked 
scratch files which are used by the eigenvalue and 
eigenvector generating routines. 

b. Controls the logical flow of the calls to the 
secondary level overlay programs for the desired 
eigenvalue and eigenvector results. 

c. Sets values in module coitmon blocks, including 
/TAPES/. 

716.3.2 OVERLAY (VIBR0LF. 1.1 I - PICKUP 

a. Establishes the values of /PRGPAR/ coircnon block. 

The variables are first set to defaults, then 
modified to comply with the parameters on the 
EXECUTE V1BRATI0N or EXECUTE BUCKLING statement. 
(These parameters are transmitted via the /QONPARS/ 
common block.) 

b. It errors are found in the EXECUTE statement, 

PICKUP prints error messages as they occur and 
keeps a tally of vrarnings and fatal errors in the 
/KERR(?R/ common block. 

c. Routine RMATRIX reads the mass and stiffness or 
flexibility matrix (for vibration analysis) , or the 
stiffness and geometric stiffness matrices (for 
buckling analysis) . The matrices are expanded from 
the ATLAS user matrix form to a full upper 
triangular form in a single dimensional array by 
routine EXPAN and then written on scratch file 
(V1BRSC1) by routine WRTSCR for the eigensolution 
routines called later in EIGENC. 

d. Insert set and stage numbers, mass and stiffness or 
flexibility names in vibration set condition 
matrix. 


716.3.3 0VERLAY (VIBR0LF. 1 .3) - EIGENC 

Solves the eigenvalue/eigenvector problem. 
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a. Establishes the size of the dynamic storage area, 

pointers for the required arrays, and calls routine 
£1GENS vdiich calculates the frequencies and inodes. 




i 
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716.3.3.1 EIGENS (PJ3IRTRAN subroutine) 

a. Reads the matrices for the eigenvalue problem into 
core from scratch storage. 

b. Calls KEDSY3 or REDSY4 to reduce the eigenproblem 

[K]{x) = l[M3{x) to the form [P](z) = Ifz), where 
(z) = [L(t) ]{x) and [M] = [L][L(t) ], [P] = [L]-» 
[K][L(t) ]“*. [M] must be positive definite and [K] 

and [M] are stored in coinjact upper triangular £on<> 
on scratch disk files. 


c. Calls TRIDIL to tridiagonalize [P] by Householder's 
reduction, forming matrix [D], and finds the norm 
of matrix [D]. The norm is defined as the maximum 
value of the sum of the absolute values of the 
elements in a row of [ D ] . 

d. If QR or Sturm extraction method is requested 
EIGENS calls SYMQR or SEPAR2 respectively to find 
eigenvalues from the real symmetric tridiagonal 
matrix, [D]. finds all eigenvalues, Sturm only 
those requested. Calculates the cutoff value 
(norm* 10-**) . If absolute value of an eigenvalue 
is less than the cutoff value, the eigenvalue is 
set to zero. 


e. If eigenvectors are not requested, EIGENS skips to 
step j. 

f . Loops on the number of eigenvectors irequested 
calling VECT0L to find eigenvectors, y, 
corresponding to the given eigenvalues, 1, by the 
Wielandt inverse method. 


{[D]-l[l])x = y(i) 
y (i+1) = x/l |x| I 

where | |x| | is the Euclidean norm of x. 

g. If nondiagonal mass indicator is on, EIGENS calls 
REC0VL to transform eigenvectors back to the 
original reference by 

X = [L(t) ]-»y 
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h. Calls NJShMA t-o normalize the eigenvectors. The 
normalizing values, r, are the inverse of the 
largest element of the vector, <uid are stored as 
the unsealed generalized masses. 

i. Writes the eigenvectors on scratch V1BRSC3. 

j. Eigenvalues are transformed as follows: 

f =12 - when eigenvalue prci>lem is formulated in 

terms of stiffness and mass matrices 

f=1/l* - when eigenvalue problem is formulated in 

terms of flexibility and mass matrices 

f =-1/1 - when eigenvalue problem is foirmulated in 
terms of stiffness and geometric 
stiffness matrices 

k. Writes the eigenvalues, f, on scratch file VIBRSC2. 

l. Write the xinscaled generaxized masses, r, on 
scratch file V1BRSC2. 

71b. 3.4 0VER1A^ (VIBR0LF. 1 ,4) -EXPAND 

Generate generalized mass and generalized stiffness 
matrices . 

a. Reads the eigenvalues, f, from scratch file and 
vnrites them on VIEffcRNF with the index name PREQSxx 
(vioration analysis) or ElGENxx on BUCKRNP 
(buckling analysis) . 

b. Reads th-» unsealed generalized masses, r, frean 
scratch file and generates the vectors of scaled 
generalized masses, mbar, and generalized 
stiffnesses, kbar, by: 

mbar = r* 

kbar = mbar*l tor stiffness type or 
kbar = mbar/1 for flexibility type 

c. Reads eigenvectors, y, fresn scratch file and writes 
the vectors on random disk SCOORNP with index names 
VECxxx where xxx is the column number of the mode 
matrix. 
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d. Expands the generalized nass and generalized 
stiffness vectors to rectangular matrices with zero 
off-diagonal elements. 

e. For the zero frequency partition, calculate 
generalized mass matrix hy [^(t) 

f. Writes the generalized mass oiatrix, [nhar], eind 
generalized stiffness matrix, [kbar], on VIBRRNF 
with the index names GMASSxx and GSTIFxx 
respectively . 

71t>.3.5 gVERLAV(VIBRgLF.1.5) - RIGIDBM 

Specified rigid body modes, KBM, and total mass matrix 
for the rigid model. 


a. Reads retained freedom vector, nodal data matrix 
and nodal correspondence table. 

b. Reads th user specified uncoupled rigid body 
freedom indicators URBM, TRBM, PRBM, and codes them 
as follows: 


Code freedom 

1 x-translation 

2 y-translation 

3 z-translation 

4 x-rotation 

5 y- rotation 

6 z -rotation 

c. Reads condition summary matrix. From the given 
mass matrix index name or from the c oncentrated 
mass subset nvunber, finds the row ox the condition 
summary matrix where the total mass elements are 
stored. 


d. Establishes the total mass matrix as follows: 




r Wt I 1 

I Wt I 0 I 

I Wt I I 

, , , . 

I I Ixx Ixy Ixz I 

I 0 I Ixy lyy lyz | 

•• I 1x2 lyz Izz 


1 

g 


where g = mass matrix division factor from 
matrix MPARMS1 on DATARNF. 


I 
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e. Picks up the coordinates of the C'inter of gravity 
(Xcg, Ycg, Zog) from the condition suitmary matrix. 

t. If full model skip to step j. 

g. For a half model, RIGIDBM finds the plane of 
symmetry “>f the whole system and offset (distance 
from the plane of synroetry to the c.g.) from the 
HALF parameter in the execute statement and the 
center of gravity coordinates of the half system. 

h. Establish the transformation matrices: [ar] and 

[ al ] to move the Iialf model center of gravity to 
the plane of symmetry from the right or left, 
respectively . 

i. Transforms the total nass matrix from the half 
system c.g. to the whole system c.g. with the 
following equation: 

CJH] = larft) irJ1farl4ral(tl ]fJJ[al ] 

2 , 

(These matrix operations are performed using 
SHARK commands.) Replaces [J] with [JH]. 

j. If URBM indicated, i.e., RBM relat ve to the global 
axis, skip to step u. 

k. It TRBM indicated, i.e., RBM relative to the user 
selected triad, skip to step p. 

l. For PRBM, i.e., RBM relative to the principal axis, 
RIGIDBM establishes SHARK position nuirbers for 
scratch arrays, extracts 3X3 inertia partition, 
[It], from total mass matrix, and calls routine 
VALVCT to extract eigenvalues ai»d eigenvectors. 
RIGIDBM then reorders eigenvalues and eigenvectors 
such that the largest element of an eigenvector 
lies on the diagonal of the eigenvector matrix, 
normalizes the eigenvector by dividing by its 
length eind treuisposes the eigenvectors, forming the 
matrix which rotates from global to principal cuces . 
Expands the eigenvalues to a full 3X3 diagonal 
matrix, which replaces [It], forming [JP]. 

Replaces [J] with [JP]. 

n. Converts direction cosines of the 3X3 eigenvector 
matrix to Euler angles, in the sequence: yaw, 
pitch, roll; and prints them. 
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Skips to step s. 

For the THEM (user selected triad ) , RIGIDBM 
establishes position nunibers for scratch arrays, 
and calls rout:ne K)3TRAN to generate 3X3 rotation 
matrix [r], from user specitied angle.=?. The 
rotation matrix rotates tiie referer e freune from 
global to user axes. 

Establishes translation natrix, [G], auid multiplies 
[r][G] to get [rr 

Establishes the transiornation matrix, [a], which 
transforms the total mass matrix from the global 
reference frame to the user specified reference 
frame, transforms the total mass matrix by: 

[JU] = [a(t)IJ][a] and replaces [J] with [JU] 

Generates KBM (rigid body modes) in the following 
steps: 

1. Establishes SNARK matrix position numbers for 
coordinates of c.g,, node location, and 
difference of c.g. and node location. 

2. Reads local coordinate system matrix - 

3. Loops on the number of retained degrees of 
freedom, steps 3 through 10, to generate the 
component RBM (the 6X6 matrix for each node 
location) . 

4. Picks up internal node number from retained 
freedom vector, corresponding user node number 
and pointer to nodal data matrix for node 
coordinates from nodal correspondence table, 
and node coordinates from nodal data matrix. 

5. Computes the difference array relative to the 
specified fram»'. 

6. Establishes the mode component matrix by 
appropriate insertion of the elements of the 
difference array. 

7. If analysis system indicator is off, skip 
steps 8 and 9. 

8. RIGXDhM gets the global to i alysis frame 
transformation matrix from the local 
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coordinate system matrix and establishes the 
rotation matrix between user specified freune 
and analysis frame. 

9. Forms the transformation matrix, [a], between 
the user specified frame and the analysis 
frame and transforms the component mode 
matrix, [C]. 

10. Selects the RBM freedoms from the component 
matrix as requested by the user and inserts 
these freedoms in the appropriate column of 
the modes matrix. 

t. If a total mass index name is specified by the 
user, RIGIDBM writes the total mass matrix onto 
VIBRRNF. 

u. If the normalizing indicator is off, RIGIDBM skips 
step V. 

V. Calls routine N0RMA to normalize each RBM column of 
the modes matrix by dividing by the largest value, 
r, and saves it. Establishes the normalizing 
transformation matrix, [Norm], where the diagonal 
elements are the inverses of the absolute elements, 
r, found above, and normalizes the RBM partition of 
the generalized mass matrix by: 

[JN] = [ Norm I J I Norm ] 

Replaces [J] by [JN] 

w. Replaces the flexible modes by the RBM modes by 
overwriting the respective column arrays, on the 
scratch random file SCOORNF. 

X. Reads the generalized mass matrix. Replaces the 

partition of the generalized matrix effected by the 
RBM with the respective freedoms of the 
(normalized) total mass matrix, and writes the 
generalized mass matrix on VIBRRNF. 

y. If the RBM generalized mass matrix name is 
specified by the laser, RIGIDBM writes the 
generalized mass matrix on VIBRRNF with specified 
matrix name. 

z. If the RBM generalized stiffness matrix name is 
specified by the user, RIGIDBM reads the 
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generalized stiffness matrix and then vnrites it on 
VIBRRNF with the specified matrix name. 

716.3.6 0VERIAY ( V1BK0LF ,1.6) -EUTHECK 

Perform equilibrium and orthogonality checks. 

a. Establish SNARX position numbers and matrix sizes 
tor the various matrices used in this program. 

b. Read the eigenvalues [t], mass or geometric 
stiffness [M], and stiffness [K] matrices. 

c. Performs equilibrura (compatibility) checks, steps d 
through g, for each vector. 

d. Reads an eigenvector (y) . 

e. If stiffness type requested, EQCHECK calls a series 
of routines (MULTI or READM, SMULTUR, and SUBTR) to 
solve the following equation: 

[delta] = [K-f*M]{y) 

t. If flexibility type requested, EQCHECK calls the 
same series of routines as in step e to solve the 
following equation: 

[delta] = [FM-f*I][y) 
where [F] is the flexibility matrix 

q. Computes and prints the following RMS equilibrium 
check result by transpose-multiply and squareroot 
routines: 

RMS = SQRT(V(NM-1) ♦[delta (t) ]*[delta]) 
where MM is the number of modes. 

h. It rigid body modt-s requested, EQCHECK finds the 
number of uncoupled rigid body translations and 
rotations specified by the user, reads the 
generalized mass, [m], and mass, [M], and loops on 
the nvunber of vectors, steps i through m to perform 
the mode shape orthogonality check. 

i. Reads the pivot eigenvector [y(i^ ] 

3 . Calls routine MULTI or SMULTUR to compute the 

temporary result, [T1], hy the following equation 


» 
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[T1] = [Miy] 




r 


* 


k. 


Performs steps 1 through m for each vector, to 
compute a row of the orthogcwiality check results. 


1. Reads an eigenvector [y(3) ], and calctilates 


[T2] = [T1{t) ]«.y(j) ]. 


m. CcHnputes the value, IMP, by 

TMP = ABS(T2)/MlN(M(i,i) ,M(j,j)) 


Tlie value, TMP, is represented by a symbolic code 
given in the table below; and vdiich is printed 


Symbol 

0 

1 

2 

X 


Indicates 

TMP<10->* 
10-»«<TMP<10-® 
10-® <TMP<10-« 
10-® <'*MP 


n. Forms the full modes matrix, [ 4 > 3 » by reading 
eigenvectors into the appropriate columns of 

o. Write mode shapes on VIBRRNF with index ncune 
MpDESvs (vibration analysis) or on 3UC3<RNF with 
index name M(}D£Svs (buckling analysis) . 


716.3.7 gVERIAY(VIBRflrjUF,1,7) - PSUBSET 

Extract mode shapes associated with given nodal data 
subsets . 


a. Establish SNARK position numbers for the various 
matrices used in the program. 

b. Read mode shapes, nodal correspondence table, ami 
retained freedom vector. 

c. Performs steps d through h for each specified 
subset, forming the subset mode shape matrix and 
subset freedom and node ntunbers. 

d. Reads the nodal data subset matrix, to get the user 
node numbers for the subset. 

e. Finds the total nunber of freedoms of the subset 
(row dimension of subset mode shapes, ND^) . 
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f . Establishes the size of the subset mode shape 
matrix (ND^,N^l) , where NM is the number of inodes 
(vectors) . 

g. Calls routine PICI^ to extract the rows of the 
mode shape matrix and form the subset mode shape 
matrix which is associated with the subset. 

h. Pack he retained freedom indicator in the first 
tliirty bits and user node number in the second 
thirty bits of a vrord and store the word in the 
subset freedom and node number matrix. 

i. Writes the subset mode shape matrix on VIBRRNF or 
BUCKRNF with index name SMdddxx and the subset 
freedom and node number matrix on VIBRRNF with 
index n^tme SFdddxx. 

7 1b. 4 COMMON BLOCK USAGE 


1 

1 



0VERLAY: 

V1BR^»LF 


1 

i. 

NAME 1 (1,0) 1 (1 

Lr. 

1Ji(1.3) 1 (1,4) 1 (1, 

5)J i1,6J i (1,7) 


1 

KERiy^R 1 

X 

X 

X X 

X 

X 

X 

1 

1 

CJWPARS 1 

X 

X 

X X 

X 

X 

X 

1 

1 

KORNDM 1 

X 

X 

X X 

X 

X 

X 

1 

1 . 

KQBUFP 1 

X 

X 

X X 

X 

X 

X 

1 

1 

PRGPAR 1 

X 

X 

X X 

X 

X 

X 

1 

1 

TAPES 1 

X 

X 

X X 

X 

X 

X 

1 

1 

DIMS 1 

X 

X 

X X 

X 

X 

X 

1 

i- 

CHKPKNT 1 

X 

jc 

X X 

X 

X 

X 

1 


7 1b. 4.1 /KERRp®/,/Q2rNPARS/,/K01RNDiy»/K0BUFP/ are ATLAS system 

common blocks, described in section 100.2. 

716.4.2 /PRGPAR/ — program variables 

DYNTYPE - type of d^^amic matrix 
= 1, stiffness 
= 2, flexibility 
= 3, buckling 

MASTYPE - mass or geometric stiffness matrix format 
= 0, diagonal 
= 1, non-diagonal 

VALTYPL - eigenvalue extraction method 
= 0. 0-R 
= 1 , Sturm 

N - number of equations in eigenvalue 

problem 
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NVAL 


NVEC 

SET 

STAGE 

qaNMASS 

HALF 


N0RM 


IVSET 

NAMERNF 

KEYRfiM 


XJ<EP 

YREF 

2REF 

IRBMRl 

I’^3HR(6) 


RBMR(6) 

NAMVSET 

NANrsiSS 

^lAMSTlF 

Li\MC)9f9R 

NAMRFV 

NAMNCT 

NAMVAL 

NAMVEC 

NAMRIN 

NAMR^’J 

NAMi^ 

NAMGMA 

KAMRGM 

NAMGST 


number ot eigenvalues (frequencies) 
requested 

number of eigenvectors (mode shapes) 

requested 

data set number 

stiffness execution stage number 
concentrated mass subset number 
(not used) 

model plane of symmetry indicator 

- 0, full model 

= 1, offset Xf yz plane ot symmetry 

=2* offset Y, zx plane of symmetry 

=3, offset z, xy plane of symmetry 

rigid body mode normalizing indicator 
= 0, do not normalize 
= 1, normalize 

vituration set number or buc)cling set 
number' 

VIBRRNF or BUCKRNP 

rigid body mode reference frame indicator 
= Of no rigid body modes 
= 1, global axis, DRBM 

- 2, principal axes, PRBM 

* 3, user defined axis, TRBM 
origin of user defined trrad relative 
to the global frame 

number of R.B.M. rotations for user 
defined axis 

axis about which rotation is made for user 
defined axis 
= 1 , x-axis 
-2, y-axis 
= 3, z-axis 

cuigle of rotation about selected axis for user 
defined axis 

vibration/buckling set condition matrix 
index name 

mass matrix index name 

stiffness/flexibility matrix index name 
nodal coordinates index name 
retained freedom vector index name 
nodal correspondence table index name 
eigenvalues (frequencies) index name 
eigenvectors (mode shapes) index name 
mode matrix to be altered index name (RBM) 
altered mode matrix index name (RBM) 
transformed total mass index name (not used) 
generalized mass index name 
altered generalized mass index name (RBM) 
generalized stiffness index name 
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NAMRGi) - altered generalized s tit f ness index name (RfiN) 
NRBMS - number of rigid body modes selected (<3) 

IhBMS - current rigid body mode (RBM) 

N0E1G - eigensolution equation indicator 

= 0, no equation specified in execute list 
= 1, eqxiation specified 
ISUBSET - number of subsets requested for 
eigensolution results 

ISUBRBM - number of subset requested per RBM 
(not used) 

SUBSETS (100) - index names of stiffness nodal subset 
matrix 

SUBRBMS ( 100) - index names of stiffness nodal subset 
matrices for RBM 

URBM - indicator for global reference axis 
PRBM - indicator for principal reference axis 
TRBM - indicator for user defined reference axis 

716.4.3 /TAPES/ - scratch tape variable names 


NTP 

- (VIBRSC1) - 

mass and stiff ness/flexibility 


matrices in 

singly dimensioned array, stored 


upper triangular by rows 

NTPX 

- (VIBRSC2) - 

used for intermediate 

NTPy 

- (V1BRSC3) 

results while executing 

KD3 

- (VIBRSC4) 

partial out-of-core routines 

KD4 

- (V1BRSC5) 

tor eigenvalue/eigenvector 

KD5 

- (VIBRSC6) 

solutions 

KD6 

- (VIBRSC7) 


MTP 

- (VIBRSC2) - 

eigenvectors per mode 

MTPX 

- (V1BRSC3) - 

eigenvalues and generalized 



mass 

/DIMS/ 

- F.E.T.s for 

scratch tapes 


TITLE (17) 

V142SC1(548) 

V142SC2(548) 

V142SC3(548) 

V142SC4(548) 

V142SC5{548) 

V142SC6(548) 

V142SC7(548) 


title for vibratii 
F.E.T. and buffer 
F.E.T. and buffer 
F.E.T. and butter 
F.E.T. and buffer 
F.E.T. and buffer 
F.E.T. and butter 
F.E.T. and buffer 


area for VIBRSC1 
area for VIBRSC2 
area for VIBRSC3 
area for VIBRSC4 
area for V1BRSC5 
area for VIBRSC6 
area for VIBRSC7 


716.4.5 /CHKPRT/ - checkout parameter 

IPRINT - checkout print indicator 
-0, no printout 

=1, print timing information only 
=9, print everything for checkout 


f 
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800 


ATLAS POSTPROCESSORS 


All ATLAS hardcopy output material is produced by one of 
the postprocessors. The PRINT postprocessor prints 
matrix values, processor input cuid output, euid checkout 
qtiantities, such as checksums. The EXlTcACT and GRAPHICS 
postprocessors prepare information which will drive one 
of the available offline plotters, and write it to the 
GRAPHICS output file of hTLkS. They also support 
interactive graphics processing. 


mn fi.med 
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801 


PRINT POSTPROCESSOR 


PURPOSE 

The PRINT module handles all of the ATLAS printed 
output . 

ACCESS 

This module is called from the ATLAS control program by 
one of the following commands: 

PRINT INPUT (PK0rC,plist) 

PRINT J?UTPUT{PRJ2C,plist) 

PRINT MATRIX (Fname,plist) 

PRINT MATRIXID(Fname,mlist) 

PRINT MATRIX (Fname, CHECKSUM, plist) 

PRINT MATRIX (Fname,CHECKPRlNT,plist) 

where : 

PR0C - the type of data print desired 
Fhame - ATLAS random access tile 
plist - user selected execution parameters 
mlist - list of matrix names 

PRINT INPUT/PRINT 0PUTPUT COMMANDS 

Table 801-1 shows the available postprocessor print 
options, and the corresponding secondary overlay 
numbers. References are to sections in reference 1-1. 
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Table 801-1. Postprocessor Secondary Overlays 


1 

L 

Print Type 

I PRINT 

INPUT 

1 PRINT 

OUTPUT 

1 

1 Overlay I Reference I Overlay 1 : 

Reference 1 

1 

STIFFNESS 

1 (1»1) 

1 

252 

I n.a. 1 

n.a. 

1 

1 

BC 

1 <1.3) 

1 

206 

1 n.a. 1 

n.a. 

1 

1 

MASS 

1 <1.4) 

1 

238 

1 <1.5) 1 

238 

1 

1 

STRESS 

1 H • cl » 

1 

n.a. 

1 <1.6) 1 

254 

1 

1 

DISPLACEMENTS! n.a. 

1 

n.a. 

t <1.7) 1 

254 

1 

1 

DESIGN 

1 <1.12) 

1 

212 

1 <1.13)1 

212 

1 

1 

INTERACT 

1 <1.9) 

1 

230 

1 <1.9) 1 

230 

1 

1 

L0AOS 

1 <1.10) 

t 

234 

1 <1.11)1 

234 

1 

1 

AF1 

1 <1.14) 

1 

204 

1 <1.15)1 

204 

1 

1 

MACHBpX 

1 <1.10) 

1 

236 

1 <1.17)1 

236 

1 

1 

KH0r3 

1 <1.18) 

1 

250 

1 <1.19)1 

250 

1 

1 

DUBLAT 

1 <1.20) 

1 

216 

1 <1.21)1 

216 

1 

1 

VIBRATIjaN 

1 n*a. 

1 

n.a. 

1 <1.22)1 

258 

1 

{ 

ADDINT 

1 n • a • 

1 

n.a. 

1 <1.23)1 

202 

1 

1 

FLUTTER 

1 <1.30) 

1 

222 

1 <1.31)1 

222 

1 

1 

REACTIJ2WS 

1 n.a. 

1 

n.a. 

1 <1.11)1 

248 

1 

1 

FLEXAIR 

1 ii.a. 

1 

n .a * 

1 <1.24)1 

220 

1 

1 

MA'.ERIAL 

1 <1.25) 

1 

240 

1 n.a. 1 

n.a . 

1 

1 

F0RCES 

1 n.a. 

1 

n.a • 

1 <1.32)1 

254 

1 

1 

EXSTRESS 

1 n.a. 

1 

n.a. 

1 <1.33)1 

254 

1 

1 

EXDISP 

1 n.a. 

1 

n.a • 

1 <1.34)1 

254 

1 

1 

BUCKLING 

1 n.a. 

1 

n.a. 

1 <1.22)1 

208 

1 

1 

N^aDAL 

1 (M) 

1 

246 

1 n.a. i 

n.a. 

1 

1 

LAMINA 

1 n.a. 

1 

n.a. 

1 <1.38)1 

254 

1 

L 

FREEB0DY 

1 n.a • 


n.a. 

-i.Jl»391i 

224 

_1 


801.4 PRINT MATRIX/PRINT MATRIXID COMMANDS 

These coininands are described in section 200, reference 
1-1. OVERLAY (PR1NJ3LF, 1,77B) -GPRINT does the actual 
printing using the SNARK PRNTMAT command. 

801.4.1 ChecksumA^heckprint matrix printing 

The form of the command is as follows: 

PRINT MATRIX (Fname,Chkword,INDEX=XXXXXXX, 

R 1=N1 ,R2=N2 ,C1 =N3 ,C2=N4 , FJ?RMAT=f ormat ,SKIPL=N5) 


where 


Fname - ATLAS random access file name 
Chkword - Either CHECKSUM or CHECKPRINT 
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XXXXXXX “ Matrix name to be printed - 

Asterisk option as described in 
section 200, reference 1-1, is 
available. The pareinieters 
INDEX =naine may be repeated. 

The following options apply only to the CHECKPRINT 
option. 

N1 - First row to be printed (default- 1) 

N2 - Last row to be printed (default- 

last row of matrix) 

N3 - First coluitui to be printed 

(default-1) 

N4 - Last column to be printed 

(default -last column of matrix) 
format - Print format: (4HREAL (default) , 

7H integer , SHJiCTAL , 6HMIXEDI , 6 HMIXED)3) 

N5 ~ >0, Skips N5 lines before printing 

SO, S)tips to new page, skips |N5| 
lines before printing 
(default - N5=2) 

These commands result in the calling of OVERLAY (PRIN0LP, 
1,76B) -PRNTSUM. 

801.5 ADDITION OP PRINT POSTPROCESSORS FOR ATLAS MODULES 


Changes to gfVERLAY(PRlN(2a-F, 1,0) -PRINPK 

1. Change dimensions of 1S(9NAM and IS^NUM arrays, 
which contain the module names and secondary 
overlay nximbers, respectively. Note that 
IS^^NUM is doubly dimensioned. 

2. Change DATA statements to reflect the new 
names in ISpNAM and new overlay numbers in 
lS)n4UM. 

3. Change value of set in a DATA statement, 

to the new nisnber of modules represented. 

4. Add appropriate statement numbers to computed 
G(? IV sta.tement, which jumps to appropriate 
secondary overlay call.- 
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5. Call FILEADD (sec. 900) if ATLAS random files 
are required by secondary overlay. Use array 
FETB for call. 

b. Changes to PRINT dumn^ routines 

1. Add OVERLAY card in appropriate numerical 
sequence. 

2. Add PROGRAM, SUBR(9UT1N£ and END cards as 
required. 
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802 


EXTRACT POSTPROCESSOR 


802.1 GENERAL INFORMATION 

802.1 . 1 Purpose 

To extract from ATLAS generated data t.he items that are 
recognized in the ATLAS DATA DIRECTORY, and to write 
them in indexed sequential form. 

802.1.2 Acces s 

This module is called from the ATLAS control program via 
the EXECUTE EXTRACT (plist) statement. (sec. 218, ref. 
1 - 1 ) 

802.2 MATRIX ACTIVITY 

Name Description File 


Input 


1 

ADATDIR 

ATLAS Data Directory 

DATARNF 

2 

bSETCj2N 

BSFT Control matrix 

STIFRNF 

3 

CVECOIa 

Cargo conditioii vector 

MASSRNF 

U 

DCNTRba 

Displacement control 
matrix 

STRERNF 

5 

DC0i3Rba 

Loadcase correspondence 
table 

STRERNF 

6 

DIJ3j31ba 

Displacement matrix 

STRERNF 

7 

EIGEN 01 

Buckling Eigenvalues 

BUCKRNF 

8 

FPi jklm 

Flutter plot data control 
matrix 

FLUTRNF 

9 

FPijklmn 

Flutter plot data matrix 

FLUTRNF 

10 

FREPSOI 

Vibration eigenvalues 

VIBRRNF 

11 

FVECOIa 

Fuel vector matrix 

MASSRNF 

12 

KL^q^^a 

Local coord, systems matrix 

DATARNF 

13 

DMELN0a 

Flexible element nodal 
matrix 

DATARNF 

14 

KNCIOOa 

Nodal correspondence table 

DATARNF 

15 

KNJZIALTa 

Nodal data matrix 

DATARNF 

16 

KPRAMS1 

Stiffness parameter matrix 

DATARNF 

17 

KRFVOba 

Retained freedom vector 

DATARNF 

18 

KSFOOId 

Flexible element data 
matrix 

DATARNF 

19 

KUFRTOa 

User freedom reference 
table 

DATARNF 

20 

M0DESO1 

Buckling eigenvectors 

BUCKRNF 

21 

M^TOESOI 

Vibration eigenvectors 

VIBRRNF 



22 

MPARMS1 

Mass parameter matrix 

DATARNF 

23 

Mp^lcba 

Strength min. margins 
of safety matrix 

DESIRNF 

24 

M0|?1cba 

Thermal min. margin 
of safety matrix 

DESIRNF 

25 

i?VEC01a 

Passenger condition vector 

MASSRNF 

26 

SCNO Iba 

Stress control matrix 

STRZRNP 

27 

SDTNLST 

Label subset list matrix 

DATARNF 

28 

SLKddda 

Stiffness element subset 
matrix 

DATARNF 

29 

SEMddda 

Mass element subset matrix 

DATARNF 

30 

SFdddO 1 

Subset freedom and node 
nos. 

VIBRRNF 

31 

SITMOO 1 

Label subset matrix 

DATARNF 

32 

SLCSTba 

Stress loadcase specification 
table 

STRERNF 

33 

SMdddO 1 

Subset mode shapes matrix 

VIBRRNF 

34 

SNXddda 

Nodal sxibset matrix 

DATARNF 

35 

SPKddda 

Ordered nodal subset 
matrix 

DATARNF 

36 

STOOIba 

Stress matrices 

STRERNF 

37 

TAPLWTa 

Condition summary matrix 

MASSRNF 

38 

T^JTLWTa 

Total mass properties 
matrix 

MASSRNF 

39 

VSETC^TO 

VSET control matrix 

VIBRRNF 


Name 

Description 

File 

Output 

1 

ADATDIR 

Copy of the ATIAS 
Data Directory 

EXTRRNF 

2 

DEEXC0N 

Extract Control matrix 

EXTRRNF 

3 

DBEXTNM 

Extract name list 

EXTRRNF 

4 

DBINDEX 

Attribute name list 
matrix 

EXTRRNF 

5 

DBOOIXX 

Extracted data matrix 

EXTRRNF 

6 

DBINDXX 

Low index list matrix 

EXTRRNF 

7 

ALNMLST 

Altitude subset list 
matrix 

EXTRRNF 

8 

ALNM001 

Altitude subset matrix 

EXTRRNF 

9 

CANMLST 

Flutter case subset 
list matrix 

EXTRRNF 

10 

CANMOOl 

Flutter case subset 
matrix 

EXTRRNF 

11 

CSNMLST 

Changeset subset list 
matrix 

EXTRivNF 

12 

CSNMOO 1 

Changeset subset matrix 

EXTRRNF 

13 

qaWMLST 

Condition subset list 
matrix 

EXTRRNF 
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14 

C0NMOO1 

Condition subset matrix 

EXTRRNP 

15 

CYNMLST 

Cycle subset list 
matrix 

EXTRRNP 

16 

CYNM001 

Cycle subset matrix 

EXTRRNF 

17 

LCrNMLST 

Loadcase sxibset list 
matrix 

EXTRRNF 

18 

LCNM001 

Loadcase s ubset matrix 

EXTRRNP 

19 

MDNMLST 

Mode subset list 
matrix 

EXTRRNP 

20 

Mia^MOOl 

Mode subset matrix 

El.TRRNF 

21 

RSNMLST 

Retainset subset 
list matrix 

EXTRRNP 

22 

RSMM001 

Retainset sxibset 
matrix 

EXTRRNF 

23 

SUBSLST 

Kode/element subset 
list matrix 

EXTRRNP 

24 

SPKddda 

Copy of ordered nodal subset 
matrix 

EXTRRNF 

25 

SDTNLST 

Label subset list 
matrix 

extpr:«* 

26 

S1TM001 

Label subset matrix 

EXTRRNP 


802.3 PROGRAM METHC® 

The EXTRACT iDodule consists of one prini£ury overlay, 

EXTRACT and 18 secondary overlays. 

802,3.1 OVERLAY (EXTROLF. 1 .Ot - EXTRACT 

a) Sets up consnon block /Cl/ 

b) Calls JJVERLAY {1,1} to interpret the control 
statement . 

c) It it is a reformatter run it calls 0VEHLAY5 {1,4} 
and (1,5) and ret turns. 

d) If it is not a retormatter run, {jT/ERLAY (1,2) is 
called to set tp the Extract Control information 
and sets up a loop governed b> the variable IMG. 
Counting bits from left to right iS 1 to 60, if the 
n'th bit of IMG is on, the secondary (JVERJJ^Y 
(1,n+8) is called. Each of these secondary 
overlays extracts a certain type of data. 

e) Calls (JVERLAY(1 3J to reorder the data extracted in 
step 'd) above , 


602.3 



802.3.2 


gVEKIAY (EXTRgLF, 1,1) - EXCON 


a) Opens required files 

b) Initializes coirmon block /EXM0DCM/ 

c) Interprets control statement contained in /CjawPARS/ 
and stores the parameter values specified in 
appropriate locations in /EXM0DCM/ 

d) Checks for legality of parameters and conflicting 
specif ications 

e Sets up standard label subsets that are not 
predefined by the user, but are used in the 
control St.- cement 

f) Scans the label stibsets and compiles the attribute 
dependency, element type dependency and matrix 
group list containing the data specified by the 
labels in tfie label subsets 

g) Checks if all required attributes eind/or subsets 
are specified 

h) Sets up appropriate default values as required 

i) Closes file 

802.3.3 0VERLAy fEXTRgLF, 1. 2) - EXPAT 1 

a) Opens required files 

b) Generates the control information for the current 
extract 

c) Updates the Extract Control matrix 

d) Closes files 

802.3.4 CFVERLAY (EXTRgLF , 1 , 3) 

a) Opens required files 

b) Reorders the extracted data in terms of increasing 
index values . The following algorithm is used: 

(1) A scratch matrix SCI is defined to use up 
available cor 



(2) A pass is made on all partitions of the 
extracted data and the index portion of each 
of the keys is extracted and put into the 
scratch matrix. 

(3) The scratch matrix SCI is compacted dovm to 
actual size and another scratch matrix SC2 of 
the same size is defined. 

(4) Array SCI is searched in sequence of ascending 
index values. The sequence number for each 
entry in SCI is recorded in the corresponding 
entry in SC2. 

(5) A scratch matrix SC3 is defined to use up the 
available core. An estimate is made as to hovr 
may Keys and the associated data records (say 
N) may be contained in SC3. 

(6) A sequential pass is made on the prelimincury 
extracted data matrix partitions until all of 
the keys 1 thru N in the reordered sequence es 
lain out in SC2 are encountered. These keys 
and data recoras are passed into SC3 and SC3 
is written ouu as a partition of the extracted 
data# containing the first N keys and 
associated data. 

(?j The process (4) thru (b) is repeated until all 
data has been rcoxdexed. 

c) Write out DBINDXX matrix containing the lowest 

m-^exes in “ach of the extracneU partitions. 

d) Closes files 

802.3.5 (O VERLAY (EXTRgLF, 1 . 41 - RESORT 

a) Opens required files 

b) Sets up reordering specifications 

c) Calls subroutine SERODAT to record the extracted 
data. Subroutine SERODAT contains code almost 
identical to that in the program REORDAT. The Scune 
basic algorithm is used tor resorting the data 

d) Closes files 
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gVERLAY(£XTRiaLF.1.5> - REF0RD1 


REF0RD1 is a FORTRAN program that writes random access 
records on a node/element basis from the data re-sorted 
by the program BESflhT, 

2 ) Opens files 

b) Reads SNARK generated matrices using RDRMXI 

c) Writes out random access records using WRTER. 

d) Closes files . 

802.3.7 OVERLAYS ic .X TRgLF.1 .11B) to (EXTRgLF. 1 ,25B) 

These overlays ext_ract the data from ATLAS files amd 
%ncite them out on EXTRRNF. The actions taken by each 
overlay are identical in nature. They are: 


a) 

Open required files 



b) 

Read required ATLAS 

matrices 


c) 

Call subroutine to extract data from 

ATLAS matrices 

d) 

Wixte the extracted 

data matrices on 

EXTRRNF 

e) 

Closes files. 




The overlay numbers, the prograusi naunes and the data 
extracted by each are sunurarized iii the following table. 


1 OVERLAY 
1 No. 

PR‘JG. 

NAME 

1 

_L 

DATA 


1 (1,11) 

EXTN0DE 

\ 

NJ?DE-Relatec3 Data 


1 (1,12) 

extvm;3D 

1 

Vibration mode-shape data 


1 (1,13) 

EXTVGVF 

1 

Flutter V/G-V/F curve related data 


1 (1,14) 

ij^TSEDT 

1 

Stiffness element properties 


1 (1,15) 

e>:tdesp 

1 

Nodal displacement data 


1 (1,16) 

EXTELST 

1 

Stiffness el«nent stresses 


1 (1,17) 

EXTL)«)B 

1 

Loadability curve related data 


1 (1,20) 

EXTKUDC 

1 

User reference table and loadcase 


1 1 


1 

corresp. table 


1 (1,21) 

EXTSMS 

1 

Stress margins of safety data 


1 (1,22) 1 

EXIMEDT 

1 

Mass element id and connectivity data 


1 (1,23) 

EXTEMJJO 

1 

Buckling mode-shape data 


1 (1,24) 1 

iiJCTTMS 

1 

Thermal margins of saqety data 


1 (1,2b) 1 EXTMATR 


ATLAS matrices 
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802.4 ORGANIZATION OF EXTRACTED DATA 
802.4.1 General C«nraent.s 


The following philosopy is used to organize the 
extracted data: 

The idealized structure (nodes and elements) is the 
basic entity to be dealt with. It can be completely 
described in terms of nodal coordinates, element 
connectivity and stiffness properties. When the entity 
is subjected to an influence such as a loadcase or a 
vibration mode, its behavior can also be described in 
terms of the behavior of the nodes (i.e. the 
displacement con{>onents) and the behavior of the 
elements (stress components) . The data associated with 
the description of the structure and its behavior is the 
basic data that is to be extracted by the EXTRACT 
processor. Each such data item is assigned a unique 
label. The ATLAS DATA DIRECTORY lists all these labels 
and provides a description for each (see sec. 802.6) . 

An execution of the ATIAS system generates a large 
niimber of data items. This total data is identifiable 
in terms of some najor system parameters such as the set 
ntunber, the stage number and the loacase lcd>els. In 
addition, the concept of subsets is used to identify 
selected parts of the data. The node/element subsets 
identity parts of the idealized structtire. The label 
subsets identify parts of the data items associated with 
the nodes and elements. In addition to these subsets, 
the user specifies subsets of loadcases, vibration mode- 
stiapes, flutter conditions and other pareuneters of this 
nature, in THE EXECUTE EXTRACT command. 

These major system parameters and ti.c subsets defined 
are regarded as the attributes of the c>ocem and the 
extracted data is identified and organized in t^rms of 
the numeric values of triese attributes. 

802.4.2 System Attributes 

The following 17 quantities are regarded as system 
attributes for the ATLAS systtan and all the data items 
extracted are recognized in terms of the value of one or 
more of these attributes 

(1) Extract Name - This is the name specified 

by the user in a particular 
EXECUTE EXTRACT command. 
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(2) Stiffness sot number 

(3) Mass set number 

(4) Stage number 

(5) Loadcase sxibset number 

(6) Moae subset number 

(7j Flutter case subset number 
(8) Altitude subset msnber 
(9} Node/element subset number 

(10) Label subset number 

(11) Passenger conditi'? . number 

(12) Cargo condition msnber 

(13) Fuel condition ntiaber 

(14) Changeset subset number 

(15) Retainset subset number 

(16) Flutter condition subset number 

(17) Design cycle subset number 

An attribute may be a single or multiple valued entity. 
Attributes 1,2, 3,4,11,12 and 13 fall in the first 
category, e.g., stiffness and mass set numbers 
constitute one value only, whereas 5 thru 10 and 14 thru 
17 fall in the second category, e.g., a loadcase subset 
may have many loadcases associated with it and a 
node/element subset consists of several nodes /elements. 

Attributes may represent integer, floating point, or 
alphanumeric values. All attributes except 1,5,8 and 10 
contain integer values. Attributes 1,5 and 10 have 
alphanumeric values, and attribute 8 contains a floating 
point value. All the alphanumeric and/or floating point 
values are put into a list and their sequence nvunber in 
the list is used as the integer number associated with 
the particular non-integer value. 

802.4.3 Attribute Usage 


The attributes that are associated with data may be used 
to extract and organize data in one of the following 
manners: 


1) To form the index naire of the matrices containing 
the extracted data. 

2) To form the index part of the )ceys that are 
associated with the extracted data. 

3) The values of the coin;onents of an attribute are 
used in forming the index part of the keys that are 
associated with it. 
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In addition to the above usage the attribute values may 
be used in identifying the matrix index names and 
appropriate data items in the ATLkS matrices from which 
the data is extracted. 

The current tisage of the attribute values in identifying 
the extracted data is as follows: 

Attribute Number 1 is used as specified in (1) above 
while attributes 5 thru 9 and 14 thru 17 are used as 
specified in (3) above. 


802.4.4 Organization of Data 

The extracted data is organized in the following manner: 

The data extracted by one EXECUTE EXTRACT command is 
stored into a series of matrices of maximtim size 3000 
words. As many matrices as required are written. The 
matrix index names are formulated as DBOOIXX, where 001 
is the numeric partition number and XX is the extract 
number in display code. (Each EXECUTE EXTRACT coimand 
in a job is assigned a sequential extract number by the 
processor.) 


The data within each of the DBOOIXX matrix partitions is 
organized as follows: 


WORD 1: Bits 59-30 

Bits 29-15 
Bits 14-0 


Unused 

No. of keys in the matrix 
Lowest key in the matrix 


WORDS 2 thiu n * 1 contains n keys . Each key 
is conposed as follows: 


Bits 59-48 


Bits 47-36 
Bits 35-0 


Pointer in the matrix 
where the data record 
associated with this key 
is stored. 

Length (No. of words) of 
the associated data record. 

Index. The index is formed 
by using the integer values 
of selected attributes or their 
components . 


WORDS n+2 thru L (the last word) : 
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Cont.ain the data records for the n keys 
above. 

A matrix DBIMDXX is written out for each extract. This 
matrix ccoitains as many rows as there are partitions of 
the extracted data matrices. Each row contains the 
lowest index (i.e., bits 35-0 of Word 2) in each of the 
corresponding extracted data matrices. 

A matrix DB£XCj9N is written out on EXTRRNF. This matrix 
contaiiis a section for every extract for which the 
EXTRRNF contains data. Each section contains complete 
details of the nature of the data extracted. 

802.4.5 The Data Index 


The following table describes the manner in which the 
various attributes are used in forming the index. 


ATTRIBUTE USAGE 

TYPE 

FIELD 


(see sec. 802.4.3) 
LOADCASE SUBSET 3 

Bits 

35-24 or 

11-0* 

MODE SUBSET 

3 

Bits 

35-24 


FLUTTER CASE SUBSET 

3 

Bits 

35-30 


ALTITUDE SUBSET 

3 

Bits 

17-12 


NODE/ELEMENT SUBSET 

3 

Bits 

23-0 or 

35-12* 

CHANGESET SUBSET 

3 

Bits 

29-24 


RETAINSET SUBSET 

3 

Bits 

23-18 


FLUTTER CONDITION 
SUBSET 

3 

Bits 

17-12 


DESIGN CYCLE SUBSET 

3 

Bits 

35-24 



NOTE: Attributes that use the same field are 

never associated with the same data 
items. Thus a unique INDEX is 
associated with each data item. 

*0nly for standard label subset names DISPRINT and 
STRPKINT 


802.4.5.1 


The node and/or element internal ID*s are the components 
of the attribute "node/element subset." These together 
with the following additional information obtained from 
the ATLAS DATA DIRECTORY (sec. 802.6) is used in forming 
the index. 
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For each node or element -related item the ATLAS DATA 
D1RECT0I<Y has assigned the element type (0 for nodes, 1 
thru 13 for elements) , a code (0 thru 6) an*' a sequence 
no. (1 thru n) so that each node/element-dependent label 
is uniquely identified by its element type, code cind 
sequence number. Out of these, the element type and the 
code are used along with the internal id as follows: 

bits 23-20 element type (0 thru 13) 

bits 19-17 code (0 thru 6) 

bits 16-0 Internal ID. 

This coupled with the use of bits 35-24 for loadcase or 
mode or cycle numbers results in the data being sorted 
by loadcase/mode/cycle, element type, code and internal 
ID in that sequence. 


The above usage of node element subset components is 
standard except when the standard label subset names 
DISPRINT and STRPRINT are used. In that case the 
arrangement is 


bits 35-19 
bits 18-15 
bits 14-12 
bits 11-0 


user ID 
element type 
code 

loadcase number 


This results in sorting of the extracted data by user ID 
and loadcases in that order. 

The data record corresponding to an index contains in 
general, all values, the labels for which have the same 
code, e.g., the nodal coordinates x, y and z have, 
code=1 and sequence numbers 1, 2 and 3. Whenever the 
label subset contains these 3 labels, the data record 
will contain the 3 values in the sequence x, y and z. 

If the label subset contains only the labels x and z, 
the corresponding data record will be 2 words long and 
the values will be x and z. All node and element 
related data is organized in this fashion. See ATLAS 
DATA DIRECTORY for labels, their codes and sequence 
numbers (sec. 802.6) . 
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The codes have ‘^en devised primarily from the viewpoint 
of having the data sorted for convenient and sequential 
access during generation of graphic displays. 

80Z.4.6 Automated Generation of Indices 

Currently the building of indices in the keys is hard- 
coded into various data extraction routines. Hoviever, 
some general provisions exist in the code to automate 
this process. They are as follows: 

a) Data Statement for Array INDXDB in progrcun EXC0N: 

This array contains the progreim recognized names of 
all the attributes. The order of the attribxites in 
this array may be considered as the hierarchy of 
the attribute usage in the index, i.e., if the 
first, seventh and eleventh attributes are to be 
used in forming the index, they would be used in 
that order from left to right in the index. 

b) Data Statement for Array INDXPW in program EXCON; 

The numbers here indicate the number of bits 
required to contain the values of the corresponding 
attributes (or their components) in the array 
INDXDB. 

c) Data Statement for Array IDEF in progr«un EXDATA 

Each entry in IDEF corresponds to an attribute name 
in the array INDXDB and indicates the usage of the 
attribute in identifying the extracted data. The 
usage infozmation for the n*th attribute is stored 
in the n*th 3-bit field from left to right in the 
n*th word. Number 2 in the field indicates that 
the attribute \'alue is to be used in the matrix 
index name for the extracted data matrices, number 
3 in the field indicates that the attribute value 
is to be used in the index in the key and number 4 
in the field indicates that the values of the 
components of the attributes are to be used in 
forming the index in the key. 

d) Subroutine KEYGEN 

This subroutine is ceilled from data extraction 
routines. It accepts the attribute n<<mes in the 
first row of the array lAREND dimensioned as (4,n) 
and pulls out the le^ most bit, the rightmore bit 
and the usage code (2,3 or 4) for the attributes in 
rows 2, 3 and 4 of I ABEND. 
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CC»1M0N BLOCK USAGE 


NAME 

S' 

OVERLAY (EXTR0LF) | 


W3sssm 

■ 

a 

■ 

□ 

■ 

■ 

■ 








a 

m 

a 




C0NPARS 

□ 

□ 

■ 

□ 

■ 

■ 

■ 














Cl 

□ 

□ 

□ 

■ 

□ 

■ 

□ 

S 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 


C2 

□ 

□ 

□ 

■ 

■ 

■ 

a 

a 

5 

9 

a 

a 

a 

a 

a 

a 

a 

a 

a 


EXM0DCM 

□ 

□ 

□ 

□ 

□ 

□ 

□ 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 


KERR0R 

□ 

□ 

□ 

□ 

D 

□ 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 



□ 

□ 

□ 

D 

□ 

■ 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 

a 


LRC0MM 


□ 



















MSKC0N 




□ 

□ 
















S0RTELC 




D 

a 

















802.5.1 /(43NPARS/ 

/KLRROR/: System common blocks, described in 
/K9RNDM/ section 100-2. 

802.5.2 /LRCJJMM/: Same as in ATLAS Library Routine 

L(9QAR£C 

802.5.3 /CARDS/ This coninon block is similar to the 

system common block by the same name 
except tor the lengths of the arrays and 
is used to simulate L0DAREC input of 
labels . 

/Cl/ Contains masking constants 

/C2/ Contains the values for the number of 

v#ords in a label subset and the number of 
rinite element types recognized. 

/EXI^DCM/ Common block for communication between 

secondary overlays. See conanents in code. 

/MSKC0N/ Contains masking constants. 

/S0RTELC/ Contains information required by the 
reordering subroutines. See comments 
in code. 
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802.6 


ATLAS DATA DIRECTORS 


An engineering description of ITEM NAME in Table 802-1 is 
presented in reference 1-1. 


Table 802-1. ATLAS Data Directory 
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Taoie 802-1 (Continued) 




























































Table 802-1. (Continued) 


NO. 

ITEM N'Mf 


_4 

7 1 

1 i 1 

u 

T E 


0 E 

? 

1 H 

D 

C N 

c 

T 

] 

ELEMENT 

NODE 

SE^liEMCE 

MATRIX 


0 

D 

g 

D 

D 

B 

B 

5 

ni 

m 

Dl 

m 

Bl 


m 

m 

IDI 

□1 

MO. 

MO. 

HO. 

ONOUP 

1 1 

rnvn2)i 


M 


■ 

■ 

1 

b; 




HI 

B 






4 

z 

9 

4 


COVll/lU 


Bl 


B 

B 


B, 

1 










4 

2 

10 

4 

1(31 

CPLA8EF 




B 

■ 


B 












12 

1 

1 

4 

U (.1 

CPL»1 




B 

■ 


fl: 












12 

1 

1 

4 

If “^1 

CPU? 


Ej 


B 

B 

i 

Bl 












12 

\ 

2 

4 

I6t 1 

CPI *3 




■ 

■ 


B 





B 

B 



B 

Bi 


"T5 




lfc7) 

C Pt *4 


B 


B 

B 


■ 






fl 




B| 


12 

1 



16S> 

CPL f P?l 


B 


B 

0 


■ 






B 




fl 


12 

Bn 



USI 

CPLf PS2 


B 


n 

If 












Bl 


12 

Bn 


^b^b 

■UuaH 



B 


B 

B 


Bl 



i 

1 

B 

■ 

1 


B 

Bl 

1 

12 

Bn 


B^^9 

n») 

CPL to 


■ 


■ 

B 


B 





B 

B 



3 

Bl 


12 



HQH 

172) 

CPLL »P01 


1 










B 

fl 



m 



12 

2 



1731 

CPLLA8Q2 


1 



B 


■ 



1 

i 

■ 

B 

i 


B 

Bl 


12 

2 



174) 

CPt IAP03 


t 


B 

■ 


B 





■ 

■ 




■ 


12 

2 




MIIMIIIM 


■ 


B 

B 


B 





B 

B 



B 

B 


12 

2 


gIBgB 

176) 

■ i' 


E 


■ 

Bl 


B 





B 





Bi 


nn — 

2 


BBSiB 

177) 



I 


B 



B 












12 

2 



ITAI 

^B'Tn'T|5 




B 



fl 










B 


U 

2 



170 



1 


B 



B 










B 


12 

2 


^^g^B 

mm 

IV 1 1 !e 9 


B 


B 

B 


B 





■ 





B 


12 

2 


I^B^B 

lei) 

HE i ^ ^ SOI 


■1 


B 

B 


B' 

i 




B 





B 



~5 


BE^H 

■ ■ 



■ 





B 





B 







12 

1 


^^g^B 




■ 


B 

B 







■ 







12 

1 



li I 



I 


B 

B 


B 





B 





B 


12 

1 


^^g^B 


IB ! \ 


H 


B 

B 


B 





■ 





B 


_ 12 

1 


beb 

ipf ) 



V 


B 

B 


B 





B 





B 


■EB9 

HjnBi 

HHnHM 


IflT) 



V 


B 

B 







■ 







■^9 

mm 



1^6) 

^B J . ! BH 


B 


B 

B 







B 





^B 


B^fl 




109) 

J .l VfB 


B 


B 

B 












B 


12 

Bfl 


^^g^B 


^ M j 2JH 


B 


B 

Bl 


B 





■ 





B 





^B^B 

191) 

CPL T'-IC*' 


Bl 


B 

B 


B 





B 





B 


■fBH 

■h^hi 


Brin 

1921 

CPllHS 


K 


B 

B 


B 










9 


12 

5 



193) 

del » 


E 


B 

B 


B 










B 


9^1 

2 



194) 

DEL > 


■ 


B 

B 


B 





■ 





B 



2 






■9 


B 

B 


B 





B 





B 


BIB 

2 


nn 

196) 

CPL «l P hA 


■1 


B 

B 


B 
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803. GitAPUICS POSTPROCESSOR 


803.1 GENERAL INFORMATION 

803.1.1 purpose 

To generate graphical displays using the extracted data 
residing on the file EXTRRNPv generated by the EXTRACT 
processor. 

The GRAPHICS Postprocessor produces online and/or 
offline two- and three- dimensional windowing, rotation, 
two-dimensional clipping, and plot selection. Display 
types include: orthographic projection, contour, 

matrices in numerical form with "floating window," and 
execution menus. 

Batch and/or interactive modes are provided to produce 
optional Q3Mp80, CALCJJMP or GERBER offline plots %<hile 
optional online graphical displays are generated on a 
Tektronix 4014 CRT. 

The processor makes extensive use of the following 
software packages: 

• BCS Interactive Gr^hics library. 

• BCS Numerical Plotting System; 

• Tektronix PLOT- 10 Terminal Control System. 

803.1.2 Access 

This module is called from the ATLAS control program by 
the EXECUTE GRAHilCS statement (sec. 228, ref. 1-1) 


803.2 MATRIX ACTIVITY 

Name Description File 


l 


I 

t 

Input 




1 

1) 

ADATDIR 

Copy of ATLAS Data Directory 

EXTRRNF 


2) 

DBEXC(24I 

Extract control matrix 

EXTRRNF 


3) 

DBEXTNH 

Extract name List 

EXTRRNF 


4) 

DBINDEX 

Attribute name list matrix 

EXTRRNF 


5) 

DBOOIXX 

Extracted data matrix 

EXTRRNF 


6) 

DBiNDxy 

Low index list znatrix 

EXTRRNF 


7) 

ALNMLST 

Altitude subset list matrix 

EXTRRNF 


8) 

ALNmOOl 

Altitude stibset matrix 

EXTRRNF 

i 

9) 

CANHLST 

Flutter case subset list matrix 

EXIRRNF 

m, 

‘4 

10) 

CANM001 

Flutter case subset matrix 

EXTRRNF 


I 

; f 

i 
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11) 

CSNMLST 

12) 

CSNM001 

13) 

C0NMLST 

14) 

C0NMOO1 

15) 

CYNMLST 

16) 

CYNM001 

17) 

LCNMLST 

18) 

LCNMOOl 

19) 

MDNMLST 

20) 

MDNM001 

21) 

RSNMLST 

22) 

RSNM001 

23) 

SUBSIST 

24) 

SPKddda 

25) 

SDTNLST 

26) 

SITM001 


Changeset subset list matrix 
Changeset subset matrix 
Condition subset list matrix 
Condition subset matrix 
cycle subset list matrix 
Cycle subset matrix 
Loadcase subset list matrix 
Loadcase subset matrix 
Mode subset list matrix 
Mode subset matrix 
Retained subset list matrix 
Retained subset matrix 
Node/element subset list matrix 
Ordered nodal subset matrix 
Label subset list matrix 
Label subset matrix 


EXTkRNF 

EXTRRNP 

EXTRRNF 

EXTRRNF 

EXTRRNP 

EXTRRNF 

EXTRRNF 

EXTRRNP 

EXTRRNP 

EXTRRNF 

EXTRRNF 

EXTRRNP 

EXTRRNP 

EXTRRNF 

EXTRRNF 

EXTRRNP 


Output 

1) The Graphics File - GRAPFIL 

The graphics file, G/F, consists of user defined plot 
attributes input via ATLAS GRAPHICS statement (s) for 
generating on-screen and/or offline graphical displays. 
G/F consists of two sequential binary files, 6RAFSQ1 and 
GRAFSi'2, written by subroutines WGRAH, WGRAD and 
optionally WGKAT under the control of the GRAPHICS (1,0) 
primary overlay. Records contained on G/F are written 
with the following write statements: 

GRAFS01 

WRITE (GRAFSgl) NWX (IHD (I) ,1= 1 ,NWX) ,NWY, 

(XIN(I) ,1 = 1,NWY) ,NWCL, (XCLVL (I) ,I=1,NWCL) 

GRAFSOI consists of one data record per graphical 
display, while GRAPSP2 consists of one data file (e.g., 

K data records followed by an E0F mark) for each record 
written on GRAFSQ1. 

GRAFSC>2 

Record Type One 

WRITE (GRAFS(?2) K^D.LNGh, (IBUF (I) , 1= 1 ,LNGH) ,NP,ID1MN, 
((XYZ (I,J) ,I=1,NP) ,J=1,ID1MN) ,JK0DE,NL,LLL, 
((LBLX(I,J) ,1^1,NL) ,J=1,LLL) 

N recorus of this type are written tor each graphical 
display, the last being indicated by setting K^3D=3. 
Subroutine WGRAD writes these records, vrtiere 1 < N. 


i?' 
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Record Type Two - Optional 


The second type is optional# depending upon whether 
special annotation is requested by the user via GRAPHICS 
statement (s) # and is written by subroutine WGRAT. 

WRITE (GKAFSQ2) Kf9D. NS # U7C # (JTEXT(I) #I=1,LPC) #J# 

(JCHAR(I) (CUSIZE(I) , ((XYPT(K#I) #I=1#J) 

K>1#1DIN} # (JWf20U)S(l) #1=1#J) # (THETA(I) #I = 1#J) 

M records of this type may be written for each graphical 
display# depending on user d.iri^ctives where 0 < M. If 
records of this type are written for a display# then the 
Mth record signalled by setting R0D=±3. Each display 
is terminated by an E0F mark being written on GRAFSQ2. 

The contents of data records written on G/P by 
subroutines WGRAH# WGRAD and MGRAT is described in 
section 1001. 

Device Independent Vector Pile - VECTFIL 

V/F is a sequential binary file containing offline 
device (e.g.# CALCpMP) independent commands. V/F is 
used a user selected postprocessor as an input file 
to generate offline dependent commands for the CjZMpSO# 
CALC0MP or GERBER plotter. V/P is written by BIGS lower 
level routines# QXGRPT and QXHDK. 

V/F is written in the following format: 

WRITE (97) 1R#NW#NC#NCHSZ# (ITEXT(KK) #KK=1 #NW) , 

NPTS# (XX (J) ,YY(J) ,J=1#NPTS) 

The xile is terminated with an £01. 

PROGRAM fffiTHOD 

The GRAPHICS module consists of 2 primary overlays. The 
function of the first primary overlay is to access the 
information on EXTKRNP and generate the sequential files 
GRAFSQ1 and GRAFSQ2 (or G/P) according to the user 
specifications supplied in the EXECUTE GRAPHICS command. 

The function of the second primary overlay is to 
interpret the contents of G/F# generate a device - 
ii:dependent vectox xile (V/F) # generate online displays# 
and create a device -dependent plotting data file (P/F) 
for any of the 3 offline plotting devices e.g.# CALO0^# 
GERBER and C0Mp8O. 


The purpose of the two primary overlays is to cut down 
on the core size requirements. The arrangement works as 
follows: On encountering an EXECUTE GldVPHICS command, 

the (0,0) overlay calls the (1,0) overlay from 6jRAP0lLF 
in the normal manner. The (1,0) overlay interprets the 
contents of /CJJNPARii/, generates the G/F file, and 
determines whether any displays are to be produced and 
it a V/F file is to be created. If neither of these is 
required, the (1,0) rettirns directly to (0,0) . 

Otherwise it calls (2,0) itself. After conpletinq the 
desired tasks the (2.0) returns to (0,0) and the ATLAS 
progrant execution continues normally. 

The (1,0) primary overlay, GFGEN contains the eight 
secondary overlays viz; GRCJ?N,BALPLgrr,GENMAT,GE0MPLT, 
NVECPLT.FSC0PLT,XyP^2KP, and MH4XPLT. 

003.3.1 0VERLAY (GiiAPgLF. 1,0) - GFGEN 

The function of GFGEN is to interpret the parameters of 
the EXECUTE GKAPHICS statement and generate the graphics 
file GRAPFIL which contains the basic information 
required to generate displays by the (2,0) primary 
overlay and its secondaries. The program reads the data 
from the ranaom access file EXTRRNF, generated by the 
EXTRACT processor, and writes the same on the sequential 
file tau^PFIL using the subroutines WGRAH, WGRAD and 
WGRAT. 

The file EXTRRNE' contains several sections, each 
peirtaining to an EXECUTE EXTRACT command and identified 
by the 'EXNAME* supplied by the user in his EXECUTE 
EXTRACT cononand. These EXNAME *s are refe' ... to by the 
user in his EXECUTE GRAPHICS command implying that the 
data required to generate the specified displays is 
contained in that section of EXTRRNF which is identified 
by the EXNAME. One EXECUTE GRAPHICS command may refer 
to more than one EXNAME indicating more than one section 
of EXTRRNF can be used in generating displays. 

Program GFGEN calls the overlay (1,21) which interprets 
tlie contents of the EXECUTE GRAPHICS command and 
determines the number of EXNAME *s that are specified as 
well as the type of display that is to be generated from 
data related to each EXNAME. The value of the variable 
NUMPLT indicates the type of display to be generated and 
has the following significance. 

NUMPLl = 1 - 3D orthographic plots of structural 
qetanetry. 
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NUMPLT s 2 
NUMPLT 3 

NUMPLT = 4 


3D orthographic plots of nodal 
displacements . 

3D orthographic plots of scalar 
quantities related to finite 
elements. 

Contour plots of scalar quantities 
related to finite elements. 


NUMPLT = 5 - 
NUMPLT = 6 - 
NUMPLT = 7 - 


V-G/V-P graph plots. 
Other graph plots 
Matrix plots 


A separate secondary overlay is used to generate plots 
of type 1, 2 and 7« whereas one secondary overlay 
generates plots of types 3 and 4, and cme generates 
plots of types 5 and 6. 

The program GFtSEN sets up a loop for the number of 
EXNAME *s referred to in the EXECUTE GRAPHICS command. 
Using the value of NUMPLT associated with each of the 
LXNAME's it calls the required overlay to generate the 
desired display. 

The generation of "loadability diagrams" is carried out 
entirely by the secondary overlay (1#20 ) , program 
BALPL(9T. The program BALPLJ2T also interprets the 
contents of the EXECUTE GRAPHICS statement. The 
indicator for this path is set in the variable L/9DIND. 

After the GRAPPIL is completely written the program 
wrxtes four words on sequential file lOIRECT. The 
ccsitents of these words are used by the primary overlay 
(2»0) program AGP to determine subsequent acticms. The 
possible subsequent actions are as follows: 

a) In interactive mode 

• generate online displays only 

• generate online displays and write them on 
VECTPIL 

• Write the contents of GRAPFIL onto VECTPIL 
without display 


803.5 


% 







• Write contents of VECTFIL onto TAPE99 for an 
offline plotting device. 

b) In batch mode 

• Write contents of GKhPPIL onto VECTFIL 

• Write contents of VECTFIL onto TAPE99 for an 
offline plotting device. 

If none of these actions is required, the (2,0) overlay 

is not called. 

The following contains a step-by-step description of the 

tasks performed by GFGEN. 

a) Opens and positions the two sequential files of the 
graphics file, GRAPFIL. 

b) Initializes conmon blocks /GRM0DCM/ and /Cl/ 

c) Opens the random files EXTRRNP and SCOORNP. 

d) Calls overlay (1,2) which interprets the contents 
of /C(3NPARS/ 

e) Calls overlay (1,20) which generates loadability 
plots if so indicated by the value of the variable 
LjaoiND. If (1,20) is called, steps (f) thru (h) 
are omitted. 

f) Checks the value of the variable lEXTDEF which 
indicates the total number of EXNAME *s from which 
data is to be displayed. Omit steps (g) and (h) if 
IEXTDEF=0 . 

g) Calls overlay (1,21) which sets up matrices from 
the extracted data, if NUMPLT =1, 2, 3 or 4. The 
matrices contain all the information that is 
required to produce all displays. 

h) Sets up a loop 1 to lEXTDEF. Every pass of the 
loop checks the va.^ue of the variable NUMPLT and 
calls the associated overlay. Hie first value in 
NUMPLT is set up when the overlay (1,21) is called. 
Each secondary overlay called subsequently resets 
NUMPLT as required for the next cycle, before 
returning to (1,0). 

i) Writes the variables IBATCH,1SW12)PF,IDEVC and NPLJZfT 
on the file IDKCT. 








c 


u 


V 


( 


c 


t 
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j) Closes all files. 

k) Returns if ICALL^O. 

l) Otherwise calls Overlay (GRAPpLF»2»0) 

803.3.2 gVERLAY(GRAP0LF.1.2) - GRC0N 

ai Sets up default plot parameters in common block 
/GRMjroCM/. 

b) Checks if loadability plots are to be generated. 

It so, sets L^IND-1, moves the contents of the 
matrix DBINDXX for the specified EXTRACT to array 
l^PpS in consoon block /GRM(9L>CM/ and returns. 

c) Interprets sequentially the contents of the 
parameter list in the EXECUTE GRAPHICS statement. 
Tne valxies are stored in the array MP in the common 
block /GRM0DC^</. Whenever an EXNAME is 
encountered, the contents of MP(1) thru MP(43) 
provide the specification for the displays to be 
generated from the data associated with the EXNAME. 
These are transferred to a column of the matrix 
with index name EXNMLST. After the command is 
completely interrogated the EXNMLST matrix is 
written on the scratch file SCOORNF. The matrix 
EXNMLST contains as many columns as the EXNAME *s 
referred to the EXECUTE GRAPHICS command. 

d) Writes the EXNMLST matrix on SCOORNF. 

803.3.3 OVERLAY GRAP0IFn.2O) ~ BALPLOT 

Program BALPLjZrr directs the formation of loadability 
plots. These consist of a fan grid of weight vs vehicle 
cg-x in percent Mean Aerodynamic Chord, overlayed by 
passenger, cargo, and fuel vectors. Subroutine CHKOATA 
looks through CJ^PARS for keywords, and sets values 
accordingly. GRIC forms the basic fangrid, using 
various graphics utility routines, while VECT0R takes 
appropriate matrices from EXTRRNF and calculates the 
passenger, cargo and fviel vectors as required usir^ 
various graphics utility routines. 

803.3.4 OVERLAY <GRAP0LF . 1 ,2 1l - GENMAT 

The program GENMAT generates certain matrices which 
facilitate generation of displays by subsequent 
overlays. The matrices, as identified later in this 
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sect.ion« are generated for information that is needed 
several times by subsequent overlays. 

This avoids multiple accessing by keys of the non- 
cunt iguously stored data items. The data items are 
accessed only once by tlie keys and the desired 
information is then available as self contained 
matrices. These matrices are created for each of the 
£XNAML*s referred to in the EXECUTE GRAPHICS command. 
The cliaracters 6 and 7 in the index names for these 
matrices contain the integer number in display code 
associated with the EXNAME. 

Step-by-step tasks performed by the program are as 
follows: 


a) Reads the following matrices: 


DBINDEX 

DBEXTNM 

SUBSLST 


EXTRRNF 

EXTRRNF 

EXTRRNF 


DTNMLST 

DBEXCJ^N 

EXNMLST 


EXTKRNP 

EXTRRNF 

SCOORNF 


b) 


Sets up a loop for number of coltimns in the EXNMLST 
matrix. 


Finds plottype (2nd variable in the column) in 
NUMPLT. 


If NUMPLT is greater than 4, omit steps (c) thru 
(g) . Carries out steps (c) thru (g) for each pass 
in the loop. 


c) Obtains the associated attribute information by 
calling the subroutine INDXUSE. The subroutine 
also obtaxns the number of nodes in NUMN0DS, the 
mrniber of elements of each type in array NUMELMS, 
total number of elements in NjJELT, the selection 
pattern for node-related items in array 1SELPN(9 and 
the same for element related items in array 
ISELPEL. 


d) Sets elements 50 thru 57 of the current column of 
the EXNMLST matrix. 


e) Calls GEN)3S(aF to generate the following matrices: 

VEDFOOl - Each word in this matrix 

contains a pair of 30-bit integers 
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that are internal node number 8 
between which a line is to be drawn 
when generating a grid. 

B119D001 - Each word in this matrix contains 

up to 5 packed 12-bit integers which 
are the structural nodes for an 
element. As many words per element 
are written as regiiired. 

The matrix in position MN|0DSS * s a nodal subset 
matrix for the elanent structural nodes for all 
elements in the data for the EXNAME. 

f) Calls 6ENDUSS to generate the following two subset 
matrices. 

The matrix in position MAP is the subset of nodes 
for which data is extracted, with respect to the 
internal nodes. 

The matrix in position MNID is the subset of 
element nodes viith respect to the nodes for vdiich 
data is extracted. 

g) Calls 6EDUC0T twice to generate nodal 
correspondence tables for nodes represented by the 
subset matrices MAF and MNID. 

A nodal correspondence table is essentially a 
renxunbering scheme whereby the original node 
numbers that may not be contiguous are renimbered 
contiguously from 1 to N where N is the number of 
nodes. The nodal correspondence table contains 
information for obtaining both old-new and new-old 
correspondence . 

For the MAF matrix the internal ids of the nodes 
are regarded as user IDs and a new sequence of 
internal IDs is generated and incorporated in the 
first correspondence table in the position MNCT. 
This scheme is used to get a compact connectivity 
matrix . 

For the MNID matrix the internal IDs of nodes are 
regarded as user IDs and a new sequence of internal 
IDs is generated and incorporated in the second 
corres^ndence table in position MNCT1. This table 
helps in locating a given node in the extracted 
data. 


803.9 




h) Calls SSLC^D to obtain the nodal coordinates of 
the nodes in the extracted data and puts them in 
matrices at positions MXG, MYG, MZG, respectively. 

i) The coordinates, as obtained by calling SELC^aRD, 
are in the global coordinate system. The user 
specitication in the EXECUTE GRAPHICS comrand 
ano/or the default specification for the desired 
views may require that these coordinates be 
transformed. For this purpose the program calls 
GETTRIN to obtain the transformation specifications 
for the data and calls UTRANS to perform the 
transformations. The coordinates in positions MXG, 
MYG and MZG are transformed and stored in positions 
MXT, MYT and MZT. 

j) If NUMPLT=3, the transformed coordinates are 
projected onto the Y-Z plane by zeroing out the 
contents of the matrix at MXT. 

k) II NUMPLT=4, the transformed coordinates are 
projected onto the X-Y plane by zeroing out the 
contents of the matrix at MZT. 

l) Calls GENCJJNM to generate the connectivity matrix. 
This is an upper triangular bit form matrix. The 
nits that are turned on in a row indicate the 
connection of the node represented by that row to 
the other nodes. 

m) Calls GENMAF to Jtnerate the matrix of analysis 
trcones and a m'^trix of user IDs for the nodes in 
the extrac' a o^.ta. 

n) Calls GENMEID to generate matrix of user IDs for 
the elements in tfie extracted data. 

o) Calls GLNECG to generate a matrix of element c-g. 
locations (based on structural nodes) for the 
elements in the extracted data. 

p) Writes the local frames matrix on SCOORNF. 

q) Sets up a loop tor the numbers of EXNAME 's. For 
each EXNAME the minimvim and maximum values of 
transformed X, Y and Z coordinates are obtained. 

If SCALE is specified as a parameter in the EXECUTE 
GRAPHICS statement, the coordinate matrices, the 
element c.g. location matrix and the min. /max. 
values are scaled. The minimum and the maximum 
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values are put into elements 44 thru 49 of the 
current column of the EXNMLST matrix. 

Steps (c) thru (q) result in writing on SCOOKNF the 
following matrices for each EXNAT4E, from which data is 
to be displayed. 

r) If the tXPLfcJDt option is specified by the user in 
his EXECUTE GRAPHICS command, it implies that the 
data from all the EXNAME *s are to be displayed 
together in one single display. In that case the 
maximum and the minimum cooiainate values are 
updated to reflect the maximum and the minimuras of 
the combined total display. 

s) Loads the first column of the EXNMLST matrix into 
array MP in the cunr on block /GRMgFDCM/ so that the 
primary overlay program GFGEN calls the next proper 


secondary overlay. 

1 


1 Position 

1 

1 

1 

Index Name 

1 Name 

1 

Contents | 

1 

XGLjaBXX 

1 MXG 

1 

Global X-coordinates | 

1 

YGLJJBXX 

1 MYG 

1 

Global y-coordinates | 

1 

ZGLi<JBXX 

1 MZG 

1 

Global Z-coordinates I 

1 

XTRANXX 

1 MXT 

1 

Transformed X-coordinate | 

1 

YTRANXX 

1 MYT 

1 

Transformed Y-coordinate| 

1 

ZTixANXX 

I MZT 

i 

Transformed Z-coordinate| 

1 

AFRAM”< 

1 MAP 

1 

Nodal analysis frames I 

1 

MN^JIDXL 

1 

1 

Nodal User IDs I 

1 

MELirXX 

1 I^iElD 

1 

Element user IDs I 

1 

DCJiJRTXX 

1 MNCT 

1 

First nodal correspon- ( 

1 


1 

1 

dence table I 

1 

MC0NT«X 

1 MCJ^N 

1 

Connectivity matrix I 

1 

MECGTXX 

1 MECGT 

1 

Transformed element I 

1 


1 

1 

c-g. matrix I 

1 

MLjaC0XX 

1 ML0CAL 

\ 

Local reference frame | 

1 


1 

1 

table 1 

1 

DCJ3R1XX 

1 NMCT1 

1 

Second nodal correspon* | 

1 


1 

1 

dence table I 


These matrices contain all the information required to 
generate a labeled grid and are used tor that purpose by 
subsequent overlays. 
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803.3.5 OVERLAY (GRAP0LF. 1,22> - GEMMRLT 


This overlay plots geometry. 

a) Reads matrices OblNDEX and D££X0(m from EXTRRNF. 

b) Calls IXDXUSE to obtain attribute usage in the 
array 1 INDEX. Numbers of elements of each type in 
array NDMEI^S, number of nodes in NUMN0DS« total 
number of elements in N0ELT, selection pattern for 
node- dependent items in array ISELPNJ3 euid the same 
for element dependent items in array ISELPEL. 

c) Calls GETMAT to read appropriate matrices frcxn 
SCOOKNF. 

d) Calls WGRAH to varite the header on G/F. 

e) Calls GENTRAC to generate grid it required or calls 
GENPPIN to generate points only. 

f) Calls GENDZ to generate dZ coordinates. 

g) Calls GENNJ3ID to generate node labels if required. 

h) Calls GENELED to generate element labels if 
required. 

i) Reads the EXNMLST matrix and loads the next column 
of the matrix into the array MP in common block 
AiRM^DCM/ so that the primary overlay program GFGEN 
calls the next proper secondary overlay. 

803. 3. b 0VER1AY (GRAP0LF. 1 . 23) - NVECPLT 

This overlay plots nodal displacements for loadcases and 

vibration and buckling mode shapes. 

a) Reads matrices DBINDEX, DBEXC0N and DBEXTNM from 
EXTRRNF . 

b) Calls INDXliSE (see step (b) in overlay (1,22)) 

c) Calls GETMAT to read appropriate matrices from 
SCOORNF. 

d) Reads matrix ADATDIR (ATLAS DATA DlRECTf^RY) from 
EXTRRNF and determines the vector components that 
ore to be plotted. 
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e) Determines whether the vector components are 
dependent on loadcases of mode shapes and finds out 
the index name of the 1C/M(?DE subset matrix that is 
associated with the data . 

f) Reads the appropriate LC/M0DE subset matrix. 

g) Generates the **INDEX” that is associated with the 
tir~>t vector to be plotted and calls GETREC to 
locate the key in -he extracted data. 

h) Calls GENNVEC to generate the displacement plots. 

i) Loads the r»ext coliamn of EXNMLST matrix into the 
array MP in common block /GRMjTOCM/ so that the 
primary overlay program GF'.EN calls the next proper 
seconc-.ry overlay. 

803.3.7 0VER1AV (GRAP0LF. 1.2^) - ESC0PLT 

This overlay plots stress components, property values or 

margins of safety associated with finite elements as 3-D 

orthographic plots or contour plots. 

a) Reads matrices DBINDEX and DEEXCpN from EXTRRNF. 

b) Calls INDXUSE (see step (b) in overlay (1,22)) 

c) Calls GETMaT to read appropriate matrices from 
scoornf. 

d) Reads matrix ADATDIR (ATLAS DATA DIRECTORY) from 
EXTRRNF and determines the scalar quantity thit is 
to be plotted. 

e) It the scalar quantity is dependent on 
loadcases/cycles, the index name for the 
loadcase/cycle subset matrix is obtained and the 
loadcase/cycle subset matrix is read. 

t) Calls GETREC to locate the first key for the scalar 
in tlie extracted data. 

g) Calls SEI4ESCA to generate 3-D scalar plots or, 

h) Calls GENEC0 to generate contour plots. 

i) Loads the next column of EXNMIST matrix into the 
cirray MP in common block /GRM0DCM/SO that the 
primary overlay program GFGEN calls the next proper 
secondary overlay. 
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0V£RL/:Y (GRAP(a.F> - XYPLOT 


This overlay plots V/G-V/F curves or scalar vs. 
loadcase or scalar vs. cycle graphs. For V/G-V/F 
tnirves: 

a) Reads the first extracted data matrix. 

b) Calls GENVGVF to generate plots. 

The (2,0) primary overlay, AGP, has 13 secondary 
overlays viz. MENUEX, PLTXT2D, PLTXT, MTRX, CPLTXT, 
CPLTXT2, SC4020, CALCMP, GERBER, HCMENU, GDRCTRY, 

CNTUR2, and CNTUP3 associated with it. The purpose of 
the (2,0) and its secondary overlays is given below. 

For scalar vs. loadcase/cycle graphs. 

c) Reads matrices DBINDEX and OBEXQ(»l from EXTRRNF. 

d) Calls INDXUSE (see step (b) in overlay (1,22)) 

e) Reads matrix ADATDIR (ATLAS DATA DIRECTORY) from 
EXTRRNF . 

t) Determines the attriliute dependency of the scalar 

quantity to be plotted aiid checks that the quantity 
is related either to loadcases or design cycles. 

q) Reads the loadcase/cycle subset matrix. 

h) calls subroutii'e SGR^DAT to have the required data 
selected and reordered so that the extracted data 
xs stored by elements with results for all 
loadcases/cycles being stored sequentially for each 
element. The routine SGR0DAT is the same as used 
by overlay (EXlRjaLF, 1,4) , program RESJ3RT in the 
EXTRACT processor. 

i) Calls subroutine BARPL)ST to generate graphs. 

j) Loads the next coltann of EXNMLST matrix into the 
array MP in common block /GRMJ^CM/ so that the 
primary overlay GPGEN calls the next proper 
secondary overlay. 
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OVERLAY (GKAI\»LF, - MTRXPLT 


a) Heads matrix Ml'BINDX trom EXTKKNF. 

b) iJets up a loop for tht' entries of the matrix 
MDblNDX and calls subroutine GENMATR to qenerate 
plot of each matrix. 

c) Loads the next column of EXNMLST matrix into the 
array MP in comuion block /GKMJiiDCM/ so that the 
primary overlay GfGLN Calls the p^roper secondary 
overlay next . 

bOi.3.10 OVERLAY (GKAIVLF , 2 . 0 ) - AGP 

Program ALiP monitors execution of the approp'riate 
secondary overlays under it usinq the information 
supplied by tJie user in his EXECUTE GRAPHICS statement 
and that supplied via the keyboard during interactive 
op>erat ion. 

The turjctions pieriormea by the individual secondary 
overlays are described in the following sections, 

803.3.11 0VEKLAY (GKAP0LF ,2, 1) - MENUEX 

Prograi.v MLNUEX is responsible tor all menus pertaining 
to online displays aiul keyboard activities, excluding 
the crosshairs (graphic cursor) , and is invoked only in 
the convex sational modt'. Gpecitic functions include: 
deciphering user inputs entered via the keyboard for 
legal commands and/or data, displaying appropriate menus 
requested by the console opierator, up>dating 
tiansiormation p'arameters (e.u., zoom), and passing user 
uirectives ot the graphics executive, AGP, via labeled 
coimnon (e.g., p^lot selection). 

MENUEX, the menu executive, controls the display and 
tunetional process of tJie followiiig menus and 
directories : 

• Ihinction Menu, 

• Gname Dirt'Ctory, 

• Plot ID Darectoxy, 

• Plot Transformation Menu. 

Keler to leference 1-1 tor a detailed explanation ot 
these menus and the command structure required by each. 



803.3.12 kiVEKLAY (GRAPgLF.2.<n - PLTXT2D 


Program PLTXT2D is called by AGP to generate two- 
dimensional graphical displays, including two- 
dimexisional multiple projections. This overlay displays 
one, two, three or tour displays on a single "frame.** 
Graphical inputs are read off the G/F initially. Plot 
limits may be superseded online using the crosshairs or 
the plot transf ormation menu. The following featiures 
are supported via PLTX12D: 

• Plotting of any number of points or cxirves on 
a single plot; 

• Superposition of text plotted in alphanumeric 
and/or vector form; 

• Optional generation of axes or grid; 

• Two-dimensional windowing via crosshairs for 

single plot per frame; 

• Comprehensive array of plotting styles; 

• Automatic generation of a vector file unless 

supressed by user; 

• Clipping. 


803.3.13 OVERLAY (GRAP0LF.2,5) - PLTXT 

Prograni PLTXT is called by AGI- to generate either 
orthographic or perspective graphical displays. 

Graphical inputs are read off the graphics tile 
initially. The display may be altered via the 
crosshairs or one of the transformation menus. The 
following features are supported by PLTXT: 

• Transformation options such as windowing and 
rotation; 

• Plotting Of any number of points or curves on 
a single t-lot; 

• Superposition of text displayed in 
alphanumeric and/or vector form; 

• Optimum subject space computation option prior 
to displaying rotated object; 
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• Clipi-inq; 

• Order ol rotation user-controlled; 

• Automatic generation ot vector file unless 

suppressea oy user. 

803.3.14 QVLRL^vY (GRAI>0LF . ^ , fa ) - MTRX 

Program MTKX displays a user selected matrix in 
numerical form. MTKX is only called in the 
conversational mode. Matrices in numerical form ar:» not 
produced offline. A key is printed on the CRT 
identifying the row and column number of the first 
element in eadi record read off G/P. Each element of a 
"page” is identified by column and row numbers. The 
user m«y view portions ot a matrix not shown in the 
current "page" using a "tioating window" option it the 
data is contained within tiie current data record. An 
option is rtlso provided to skip to the next record if 
the matrix contains multiple records. 

803. 3. IS jgVLRLAY (GKAPt^LF ,2,1) - CPLTXT 

Program CPLTXT is called when a contour plot is to be 
generated using the following algorithm: 

Given a set ot randoni x, y, z points, an M*M 
surface definition matrix ot uniformly spaced z- 
Vcalues is generated over the x-y plane using an 
cK'tant weivjhted average tor each mesh point . Each 
lectangular griu clement is examined to determine 
it any of Uie supplied control levels are contained 
with it. it so, an arithmetic average is used to 
compute a fifth point to subciivide the rectangle 
into 4 separate triangles. Linear interpolation is 
Uien used to compute isobar lines for those 
triangles containing contour level (s) within it. 

The set ol random x, y, z points is not central 
memory boundetl. 

The piimary purpose ot CPLTXT is to compute the M*M 
surface definition matrix ol uniformly spaced z-values 
as described in the above algoritliin. The surface 
defiiiition matrix is computed by CPLTXT, saved in 
labeit'd conunon, and utilizetl by J3VERLAY (GKAPj3LF,2, 10) to 
compute either a contom plot or orthotiraphic projection 
both of which utilizes the surface definition matrix. 

The oiurtdce definition matrix is calculated only once 
alter a ustr has selected a sj^ecitic plot from the Gname 
directory even tl»oug)» several different grap'hical 



dis^lay^ (vj.ews) are generated by the user via 
transtorination options (e.g., zoom, rotation). 

803.3.16 gVEKLAY(GRAPgLF.2.10) - CPLTXT2 

Program CPLTXT2 using the M*M matrix of uniformly spaced 
z-values computed by 0VERIAY (URAP^F,2,7) , computes the 
isobar lines using the following method: Each 

rectangular grid element is examined separately to 
deteritane if any of the supplied contour levels is 
contained within it. If so, an arithmetic average is 
used to compute a fifth point to subdivide the rectangle 
into 4 separate triangles. Each triangle is examined 
separately to determine if contoiu: levels are contained 
within it and linear interpolation is used to compute 
the isobar lines. The process is repeated for each 
rectangular grid element. 

CPIiTXT2 also displays the M*M surface definition matrix 
as a tlixee-dimensional orthographic projection of the 
surface grid. The user is allowed to interactively 
define the orientation and sceiling information of the 
display. The following method is used to generate the 
3D display: 3D lines are drawn through each of the M 

rows and M columns of the matrix. Each grid point in a 
line is defined in x, y, z sp-=»ce by its row, column and 
matrix value. Scaling in the x, y dimensions is 
normalized to 30 % or unity. Ihe orientation is preset 
to RX = 5 degrees, KY = 15 degrees and RZ = 30 degrees. 

803.3.17 wiVERLAY (GRAP0LF.2.121 - SC4020 

ProgicjiT. SC4020 is the Stromberg Carlson 4020 
postprocessor. The postprocessor is used to convert 
aevice independent commands written on the vector file 
(TAPL9?) to the SC4020 or C0Mp8O dependent commands 
written on TAPE 49 . The postprocessor utilizes the 
Boeing Numerical Plotting System (NFS) in the conversion 
process. The p jstprocessor also generates a file called 
0FFL1NE which cont.iiiis directives for the CJSMpBO plotter 
operator. The contents written on the J3FFLINE file are 
obtained either via EXECUTE GRAPHICS statement (s) and/or 
generated by user directives defined via the Hardcopy 
Questionnaire Menu (refer to 0VERLAY (GRAP0LF,2, 15) ) . 

Both TAPE9 7 ctnd 0FFLINE are used for queuing data during 
plot postprocessing. 

803.3.18 0VERLAY ( GRAP0LF .2.13) - CALCM P 

Program CALCMP is the CALC0MP model 763 postprocessor. 
The postprocessor is used to convert device independent 
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conut>aiid;3 written on the vector file (TAPE97) to CALCjaMP 
dependent conunands written on TAPL99. The postprocessor 
utilizes extensively the Boeing Numerical Plotting 
System (NPS) in the conversion process . The 
postprocessor also generates a file called JiFFhlNE which 
contains directives for the CALC0KP operator (e.g., bond 
or vellum) . Ihe contents written on the /OFFLINE file 
ate obtained either via EXECUTE GRAPHICS statement (s) 
and/or generated by user directives defined via the 
Hardcopy Questionnaire Menu (refer to (OVERLAY (GRAP0LF, 2 , 
15) ) . Both TAPE97 and 0FFL1NE are used for queuing data 
atring plot postprocessing. 

80J.3.1:# (OVERLAY (GRAP0LF, 2. I4i - GERBER 

Program GERBER is the GERBJLR drafting-machine 
postprocessor. The postprocessor is used to convert 
device independent commands written on the vector file 
(TAPE97) to GERBER drafting -machine dependent commands 
written on TAPE99- The postprocessor utilizes 
extensively the Boeing Numerical Plotting System (NPS) 
in the conversion process. The postprocessor also 
generates a file called (OFFLINE which contains 
uirectives for the GERBER operator (e.g., pen type). 

Tlie contents written on the 0FFL1NE file are obtained 
either via EXECUTE GRAPHICS statement (s) and/or 
generated by user directives aefined via the Hardcopy 
Questionnaire Menu (refer to (^ERLAY (GRAPJ2>LF, 2, 15) ) . 

Both TAPcy? and )^FFL1NE are used tor queuing data during 
plot postprocessing . 

803.3.20 t^A/ERLAY(GRAP(aLF,2,15) - HCMENU 

Prograiii HCMENU only displays the Hardcopy Questionnaire 
Menu when running in the conversational mode. The menu 
allows the user to define the following information 
interactively: 

• Offline plotting device (e.g., C0Mp8O, CALC^.. ) ; 

• Mailing and operator directives; 

• Plot stacking option. 

This information is trar»smitted to the appropriate 
offline postprocessor (e.g., CALC0MP) via labeled 
common . 

The hardcopy Questionnaire Menu is not currently used. 
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803.3.^1 OVERLAY ( JRAF0LF, 2.30) - GDRCTRY 

Program GDRClTiY's primary function is to build a 
directory of the graphics file, G/F. The directory is 
used to display the Gname Directory and Plot ID 
Directory. The directory provides a summary of the 
graphical displays written on G/F and sufficient 
information to allow efficient references to any display 
selected by the user via the Gname Directory and/or Plot 
ID Directory. Ihe directory also contains the plot type 
(e.g., contour) which is used to determine which 
overlay (s) is to be called to generate the display. 

The directory is written on tile IDRCT, one binary 
record per siibject index (e.g., V/G - V/G) . 

80J.3.;i2 0Vi::RLAY (GKAFtJLF ,2,311 - CNTUh 2 

Program CNTUR2 is called wiien a contour plot is to be 
generated using the surface triangular ization algorithm 
and associated software described in reference 1~1 to 
compute the connectivity data given a set of boundary 
points and an arbitrary number of data points. The 
total number of points should not exceed 1000 and the 
total number of resulting triangles not exceed 1600. 

The surface triangular ization algorithm is stated below: 

1. Start the triangular ization using any two adjacent 
bounaary points i and j . 

2. Determine the point k which yields the largest 
angle between ik and jk. 

3. Define the first triangle as ijk and set a flag 
indicating whether k is to the left or right of the 
line ij. 

4. Check whether the side ik is on the boundary or the 
side of a previously generated triangle. If so, go 
to step 5, if not, proceed as follows: 

a. Find the point 1 which yields the largest 

angle net ween il and Ik and is on the proper 
side of ik. If k is to the left of ij, 1 must 
be to the left of ik. 
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b. If the side 11 is part, of a previous triangle 
lira, set 1-m and repeat the test for li. 

c. If the siae Jcl is part of a previous triangle 
klm, set l=m and go to step 4b. 

d. If neither condition 4b or 4c is met, define 
ikl as the next triangle in the subdivision. 

5. Repeat step 4 for the side kj. It is important 

that the order ik and kj be used (rather than ki of 
jk) to generate triangles which all have the same 
rotatioxial sense as ijk. 

»>. Find all adjacent triangles for the next triangle 

in the list. If the nodes of the next triangle are 
labeled ijk, step 4 must be repeated for each side 
ji, kj and ik. 

7. Repeat step 6 for each triangle in the stibdivision. 

This algoritlim will normally result in a complete set of 
adjacent triangles whose union consists of the entire 
region when completed, each side of each triangle will 
either 

1. be on the boundary of the region, 

2. be a common side between two adjacent triangles, or 

3. have no neighboring point which will form another 
triangle with the correct rotational sense. This 
condition is considered an error in the program, 
but the program will continue to process the 
triangles which nave been found. 

The connectivity data is passed to (OVERLAY (GRAP0LF, 2 ,32) 
tor further processing. 

803.3.23 0VERLAY (GRAP0LF.2.32) - CNTUR3 

Program CNTUR3 is automatically called vdien the surface 
triangularization algorithm is to be used to generate a 
contour plot (refer to (OVERLAY (GRAPjJLF, 2, 31) ) . 

When this overlay is Cctlled two different grapihs may be 
generated. 
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1. Contour plot generated irom the siurface 

triangularization computed by program CNTUB2 using / 

boundary points and axi arbitrary set of interior 

joints written on G/F. Contour lines are computed 
using linear interpolation, 
if 

2. optional plot showing the surface tr languid riz at ion 
computed by CSITUR2. 

803.4 COMMON BLOCK USAGE 
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OVERLAY: 

GRAP0LF (1.X) 




1 NAME 

1 

(i»0) 

1 (1»2) 

1 (1.20) 1 (1,2 

1) 1 (1 

,22) 1 (1,23) 1 (1,24) 1 (1,25) 

1 

1 KLKK0K 

1 

X 

t X 

1 

X 

1 X 

1 

X 

1 X 

1 X 

i X 

1 

iqaNPARB 

1 

X 

1 X 

1 

X 

I X 

1 

X 

1 X 

1 X 

1 X 

1 

1 K^kNDM 

1 

X 

1 X 

1 

X 

1 X 

1 

X 

1 X 

1 X 

1 X 

1 

1 GRMi(n>CM 
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X 

1 X 

1 

X 

1 X 

1 

X 

i X 

1 X 

1 X 

1 

1 FILE 99 

1 

X 


1 

X 


1 

X 

1 X 

1 X 

1 X 

1 

1 WGkADX 

1 

X 


1 

X 


1 

X 

1 X 

1 X 

1 X 

1 

IWGRATX 

1 

X 


1 

X 


1 

X 

1 X 

1 X 

1 X 

1 

1 CKCKGF 

1 

X 


1 

X 


1 

X 

1 X 

1 X 

1 X 

1 

IXCLVL 

1 

X 


1 



1 


1 

1 

1 

1 

|1j^BUF9B 

1 

X 


1 



1 


1 

1 

1 

1 

1 1J2IBUF9 

1 

X 


1 

X 


1 

X 

1 X 

1 X 

I X 

1 

1 RJ^JRDABG 

1 

X 


1 



1 


1 

1 

1 

1 

|C1 

1 

X 


1 


1 X 

1 

X 

i X 

1 X 

1 X 

1 

1 PLTBTUF 

1 



! 

X 


1 


1 

1 

1 

1 

1 LABELS 

1 



1 

X 


1 

X 

1 X 

i X 

1 X 

1 

1 TEXTS 9 

1 



1 

X 


1 

X 

1 X 

1 X 

1 X 

1 

1 HDR9S9 

1 



1 

X 


1 

X 

I X 

1 X 

1 X 

1 

ItLTBUF 

J 



1 

X 


1 

X 

1 X 

1 X 

I X 

1 

1 PLTCJ^M 

1 



1 


1 X 

1 

X 

1 X 

1 X 

1 X 

1 
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0VERLAY: GRAP0ILF(2.X) 





1 

(2,0) 

(2,1) 

1 (2,4) 

1 (2,5) 

1 (2,b) 

1 (2,7) 

1 (2,10) 1 (2,12) 

1 

IKLkR^ 

X 


1 

1 

1 

1 


1 

1 

1 FILE99 

X 

1 X 

1 X 

1 X 

1 X 

1 X 

i X 

1 

1 

1 0FFLNE 

X 


1 

1 

1 

1 


1 X 

1 

IXCLVL 

X 


t X 

1 X 

1 X 

1 X 

t X 

1 

1 

1 NPSCVJH 



1 

1 

1 

1 


1 X 

1 

1 2KC0NTK 

X 


1 

1 

1 

1 X 

1 X 

1 X 

1 

1 gXGD^A 

X 

1 X 

t X 

1 X 

1 X 

1 

t X 

1 

1 

1 yxi>cc0 

X 


1 X 

1 

1 

1 


1 

1 

IQXC0RD 

X 

1 X 

1 X 

1 X 

1 X 

1 X 

1 X 

1 

1 

|C(A«LIM 

X 


1 

1 

1 

1 X 

1 X 

1 

1 

1 C(n4LlM2 

X 


1 

1 

1 

1 X 

1 X 

1 

1 

1 FETBUFF 

X 


1 

1 

1 

1 


1 

1 

1 li^UF9B 

X 


1 

1 

1 

1 


1 

1 

r 1(!®UF9 

X 


1 

1 

1 

1 


1 

1 

1 ITYPLT 

X 

1 X 

1 

1 

1 

1 


1 

1 

IHDR999 

X 

1 X 

i X 

1 X 

1 X 

1 X 

1 X 

1 

1 

1 NUMEL99 

X 


1 

1 

1 

1 


1 

1 

IHCDATA 

X 


1 

1 

1 

1 


1 

1 

1 BATCHM 

X 


1 

1 

1 

1 


1 

1 

IKEEPST 

X 


1 X 

1 X 

1 

1 X 

1 X 

1 

1 

IXBLWUP 

X 


1 X 

1 X 

1 

1 X 

1 X 

1 

1 

IK0RDABG 

X 

1 X 

t X 

i X 

1 X 

1 X 

1 X 

1 

1 

1 CALCST 

X 


I X 

I X 

1 

1 X 


1 

1 

ISTLMTS 

X 


1 X 

1 X 

1 X 

1 X 


1 

1 

li^FFLN 

X 

1 X 

1 

1 

1 

1 


1 

1 

igXSTRG 

X 

1 X 

1 X 

1 X 

1 

1 

I X 

1 

1 

igXPLSC 

X 


i X 

1 X 

1 

1 

1 X 

1 

1 

1 PLTYPE 

X 


1 X 

1 X 

1 

1 

1 X 

1 

1 

IQCVIEW 

X 


i X 

1 X 

1 

1 

1 X 

1 

1 

1 gXDUMY 

X 


1 X 

1 

1 X 

1 


1 

1 

1 KEY 10 

X 


1 X 

i X 

1 

1 


1 

1 

1 SCREENP 

X 

1 X 

1 

1 

1 

1 


1 

1 

1 HDRPJ2PB 

X 


1 X 

1 X 

1 X 

1 X 


1 

1 

1 ISELECT 

X 

1 X 

1 X 

i X 

I X 

1 X 

1 X 

1 

1 

1 USERSP 

X 

1 X 

1 X 

1 X 

I X 

1 X 

I X 

1 

1 

IERASE9 

X 


1 X 

1 X 

1 

1 X 


1 

1 

1 PLT999 

X 

1 X 

I X 

1 X 

1 X 

1 X 


1 

1 

IDRCTRY 

X 

i X 

1 

1 

1 

1 


1 

1 

ITRANSF 

X 

i X 

i X 

1 X 

1 X 

1 X 

1 X 

1 

1 
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iKLAY : CaRAPt 


Continued 
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803.4.1 /C(9NPARS/, /lULRRfth/, /KQRNDM/ are ATIAS system conmon 

blocks* described in section 100.2. 


803.4.2 Module Common Blocks 


f 
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/GRM^DCM/ 

A'V 

/PLTC0M/ 

/P1LE99/ 

/WGRADX/ 

./WGRATX/ 

/CHCKGF/ 

/LABEL9/ 

/TLXT99/ 

/HDR999/ 

/PLTBUF/ 

/^FLNE/ 

/XCLVL/ 


Secondary overlay camnunicdtion common block 
tor overlays under (1*0). 

Masking constants common block 

Common block fox constant arrays required as 
calling parameters for routines WGRAD* WGRAH 
and WGRAT. 

System common block defining G/F file names 
and diagnostic file name. 

Contains indices and buffer* permitting G/F 
generation in multiple secondary overlays. 

Used to save indices tor buffering text 
parameters when a plot is being created and 
written on G/F in different secondary 
overlays . 

Indices tor checking logical sequence of 
writing GrafSQI and/or GRAFSQ2. 

Buffer lor reading and writing labeling 
information for current plot being written on 
G/F. 

Contains alphamuneric information and 
attributes of how and where that information 
IS to be displayed on current plot being 
written on G/P. 

GRAFS((/1 (header file) read and write common 
block - contains user defined plot attributes. 

Read and write common block of X*Y*Z 
coordinates and plotting method written on 
GRAFSg2 . 

CpMpSO* GKRB^ or CALCJSMP postprocessor 
directives for offline operator. 

Number of contour levels and values at which 
isobar lines are conf>utcd. 


M 


I 

* ' 
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/NPSCJ^M/ 

/2MC0NTR/ 

/QXGD0A/ 

/QXSCCja/ 

/QXC^JRD/ 

/Cjn^LIM/ 

/CPNL1M2/ 

/FETBUFF/ 

/1^«BUF9B/ 


/I0BUF9/ 

/ITYPLT/ 

/hDR999/ 

/NUMLL99/ 

/HCDATA/ 

/BATCHNU' 


Coinmon block used by NPS routines called by 
C0Mp8O postprocessor. 

Surtace definition matrix computed by (2,7) or 
cormectivrty data computed by (2,31) if 
contour plot is displayed. 

Graphic data set identifiers defined by BIGS. 

Defaulted object space limits in rasters, 
initialized prior to creating a plot. 

Current screen object space and subject space 
limits , respectively . 

Subject space limits read off G/F when contour 
overlays involving the octant -weighted average 
algorithm are executed (i.e., (2,7) and 
( 2 , 8 )) . 

Incremental X,Y distarices between contiguous 
mesh points when contour overlays involving 
the octant-weighted average algorithm are 
executed. 

l/{g buffer tor vector file (TAPE97) . 

1/J3 buffer for storing G/F dxrectory, and for 
storing offline device dependent coranands 
(TAPL99) . Single buffer is used for both 
functions since TAPE99 is created just prior 
to exiting AGP, overwriting directory. 

1/0 buffers tor G/F (i.e., GRAFSQ1 and 
GRAFSy2) . 

Plot type code (e.g., 4 for perspective) ,. 

butter tor reading/writing G/F header records. 

Number ot resulting triangles computed \dien 
the surface triangularizatioit algorithm is 
used to compute contour plots. 

Offline plotting device (e.g., 7HCALC0MP) . 

Code identifying execution mode: 

C = Conversational 

1 = batch Mode, Compute G/F, V/P and P/F. 

2 = Generate P/F only from existing V/F. 
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/KEEPST/ 

/XBLWUP/ 

/SiSRDhbii/ 

/CALCST/ 

/STLMTS/ 

/PFPLN/ 

/QXSTRG/ 

/WXPLSC/ 

/PLTYPE/ 

/gCVIEW/ 

/QXDUMY/ 

/KEY 10/ 

/SCREEN?/ 

/HDRP0S/ 


Ortlioijraphic projection subject space limits 
if blovmp option is i\sed. 

Code ihdicating if blowup option was used or 
not (1 or 0) • ' 

Ortliographic pro^eccion order of rotation for 
RX, RY and RZ. 

Orthographic projection subject space limits 
conputed if Transforioation Menu was invoked 
without previously invoking the cross! lairs. 

code to indicate if a data record has been 
read off G/F for current display being 
generated. If code >0# code > number of 
records read; otherwise'* «.* Je « o. 

Indicate v^ich plots the user has selected 
interactively to generate on the vector file 
without generating onl'.ne. 

Buffer fur transforming user coordinates to 
screen coordinates. 

Used by scissoring routine to determine if 
beam position is to be redefined prior to 
plotting next set of points. 

Plot type (e.g., linear-linear type plot) used 
by BIGS. 

Rotation matrix and rotation angles used to 
determine the orientation of a 3D display 
(refer to BIGS sunroutine GVIEW) . 

Used for storing row and column nxunbors when 
displaying a matrix in niiroerical form, or for 
labeling grids. 

Current screen subject space limits (converted 
to RST system from XYZ) after invoking the 
Transformation Menu. 

screen position (IX, lY) where the alphanumeric 
cursor is currently displayed or will be 
displayed next. 

Record number (on GRAFSQ1) locating active 
plot or matrix header record for a specific 
subject index (refer to G/F Directory Menu’ . 
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/Ii>ELECT/ 

/USEKSP/ 

/EKASEy/ 

/PLT99V 

/DKCTRY/ 

/TRANEF/ 


Plot subject index name, plot title, and file 
number locating coordinates written on file 
GRAFSy2 . 

Contains selected subject index, selected plot 
index, error code, active Function Menu option 
number, and code identifying current graphic 
state lor the menu executive (MENUEX) . 

Code indicating if previous plot is complete 
or being generated. 

Defines basic graphic state of current display 
(e.g., grid already displayed). 

Contains the number of subject indexes and the 
names ot each written on G/F. 

C'urrent Plot Transformation Menu parameters 
(e.g., eyepoint, center -of -interest) . 
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900. INl’ERACTIVE CONTROL 
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900.1 GENERAL INFORMATION 

900.1 .1 Pxirpose 

To prepare, interpret and execute ATLAS coinaands in an 
interactive environment. ATLAS commands may be 
specified and processed one by one, or several at a time 
in what is called command procedures. ATLAS program 
files may be created, modified or interrogated through 
an edit facility internal to the ATLAS code. 

900. 1.2 Access 

The interactive control processor is called from the 
ATLAS control program by the INTERACTIVE CjAtTR^ 
statement (sec. 200, ref. 1-1). 

900.1.3 Description 

The interactive control capability consists of a set of 
interactive commands, and tl»e code to generate and 
process, or invoke processing of these commands. 
Logically the processor code performs three 

major functions; console communicaticm, execution of 
command procedures, and monitoring of operatiors. These 
functions, together with the command language will be 
described in the following text in sufficient detail to 
support subsequent sections of this documentation. A 
more comprehensive discussion related to the use of the 
interactive capability is contained in reference 1-1, 
section 200. 

1. Interactive Control Language. There are two types 
of interactive commands; one which will be 
referenced to as regular commands, and another 
vriiich is called priority commands. The latter type 
is used entirely within the console communication 
function and will therefore be discussed in 
conjunction with this function. 

The regular commands must adhere to the following 
general format (the characters <> are used to 
enclose components of the command and are not part 
of the command itself) : 

<label> <:> <id> <d|> <para ueter list> <d?> <$> 




fi»T RUED 
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label 




- Command label consisting 

of from 1 to 7 alphanumeric 
characters. The first 
character must be a letter. 

- Command label delimiter. 


id - Command identifier 

consisting of a primary ID, 
and in some cases an 
additional secondary ID. 

Both IDs can have from 1 
to b alphanumeric characters. 

dj - ID delimiter consisting 

of either the character < (>, 
left parenthesis, or of the 
character < , > , comma . 

parameter list - Actual parameters to be 

transmitted to the executing 
code. The parameter list 
syntax is described in 
section 200.2. 


dg “ Parameter list delimiter 

consisting of either the 
character <)>, right parenthesis, 
or of the character <•>, period. 

$ - End of command character. 


blank characters interspersed in the command have 
no effect, except in conjunction with the T0-BY 
parameter list statement as described in reference 
1-1, section 200. 

2. console Communication. The console conmunication 
can occur in either of two modes; the A-mode 
(ATLAS) , or the 1/E-node of the edit facility. The 
A-mode is the aefault case, the edit mode is 
entered by issuance of a special priority command. 

in the A-mode regular interactive commands are 
typed in line-by-line and transmitted to a 
temporary core buffer. This input mode is 
interrupted either by issuing a priority command, 
or by giving the signal to start execution of the 
specified commands. A priority command is detected 
and processed out -of -order in relation to the 
regular conunands. Once execution of the command is 
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completed, the coi;trol will revert to tlie A-mode, 
ready tu resume preparation of regular commands. 

Upon detecting the execute -signal the coimiand 
butter will be transmitteti to a reserved disk file 
(TLXTFIL) and control will be directed to the 
execute function. The ccnimands residing on TEXTFIL 
are collectively called a conunand procedure. 

The edit facility is equivalent to the BCS/CMEDIT 
program as of June, 1975. All capabilities of the 
CMEDlTor with respect to generating, modifying or 
scanning files are available from inside the ATLAS 
program. In particular it is anticipated that the 
edit facility in ATLAS will be used to generate 
command procedures and /iTLAS input data files. 

Priority commands have the following general 
format : 

<&> <id> <,> <drgumeiit> 

& - The ampersand character which 

signifies the priority command. 

id - Command identifier consisting 

of from 1 to 10 alplianuroeric 

characters. . 

, - Couuiiand ID delimiter. | 

i 

( 

argument - A number or an alphanumeric \ 

string of characters. i 

blaiik characters interspersed i priority 
command are ignored. 

3. Command Execution. The e;xecution function operates 
on named commaiid procedures each of which may 
contain any number of commands. The actual 
processing of a procedure takes place in two 
stages. In stage 1 the procedure is interrogated 
conunand by command, and tiie source code is 
translated into a defined object code format (sec. 

900.2.2.2). Tlie source code and the object code 

reside on separate stguential files. In stage 2, i 

provided the "compilation” taking place in stage 1 

was successful, the conunand execution is actually j 

carried out. T)»e code to perform these operations j 

may be located anywhere in the ATLAS system 

depend irxj on the type of command to oe processed. 

Execution of the /•'"AS MASS module, for instance, 
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wall require transfer to the MASS0LF overlay. The 
code to process other types of conunands may be 
local to the interactive control processor. Thus, 
the execute function must contain the logic 
required to ^^rform tiie necessary branching to, and 
recovery from externally and internally located 
code. 

Command procedxures can be executed in two different 
modes. In the PULL mode all conmands in the 
procedure are processed without any interaction 
allowed from the terndnal. In the STEP mode the 
control returns to the terminal after execution of 
each comnand. At this point any action may be 
initiated, including processing of new command 
procedures, before processing of the current 
procedure as resumed. 

Cc^mnand procedures may be nested through procedure 
calls (RUN-commands) up to a certain level defined 
in the code. The highest level procedure will 
always be tJie one currently being processed. Once 
a procedtire processes a revert to a lower level 
procedure, the procedure itself and any 
intermediate procedures will be purged farom the 
procedure linkage definition. 

Monitoring of operations. The relationship between 
the three interactive control processor functions 
and the remainder of the ATLAS system is shown in 
the illustration. 
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Interactive Control 


The monitor tunction controls the interaction between 
the console communication function, the command 
execution, and the external i unctions of the ATLAS 
system. 

900,2 FILES /JMD FORMATS 
900.2.1 Reserved Files 

The following trie names are reserved tor use oy the 
interactive control processor: 

TLXTFIL 
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jffiJECTx (Where x may be any 

alphanumeric character) 

KISTFIL 

Tnese are all sequential files with usage as described 
below . 

TEXTFIL contains source code for the (last) command 
procedure preparea xn the A- type console mode. 

(JBJEClx contains object (compiled) code of source 
procedures from TiiJCTFlL. The last character of the name 
will Oe the display code equivalent of the procedure 
level . 

HISTFIL contains the "dayfile** of the interactive 
control activity. Just before the execution of a command 
is initiated, a copy of the command is written onto the 
HISTFIL. 

Apart, from these reserved files the interactive control 
processor will accept any source tile prepared in the 
edxtor, and generate object code files according to 
specifications on C(®1P1LE or RUN commands. 

900.2.2 File Formats 


1. Source File Format 

Commands are written on the source tile according 
to tlie format defined in section 900.1.2.1. End- 
of-line is indicated by a zero 12-bit byte. If a 
line ends at the 9th or 10th character of a word, 
an additional zero word will be added to the input 
record . 

2. object File Format 

word 1 - 10H(»BJECTF1LE 

word 2 - Number of instructions in file 

(=NN) 

word 3 - Status = 1 

1 = -2 - Fatal errors detected 
during compilation. 
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1 = -1 - Warning conditions 
aetected diuring 
compilation. 



I = 0 - No warning conditions 

or ratal errors detected 
Procedure is inactive. 



1 > 0 “ Procedure is active. 

1 is the number of the 
last command being 
executed from the 
procedure . 

word 

4 

Execution mode (=4HFULL or 4HSTEP) 

word 

5 

Name of calling procedure (revert 
file) . 

word 

6 

Total number of warning conditions 
detected during compilation. 

word 

7 

Total number of fatal errors 
detected during ccxnpilation. 

word 

8 

0 (not used) 

word 

9 

0 (not used) 

word 

10 

0 (not used) 

word 

11 

Bits 59-18: Contains the label 

ot first command. 



Bits 17-0: Pointer to first 

command (=KK) 

word 

12 

Same as word 11 for second command 

• • 

word 

» • • • 

11 ♦NN - 

• # 

Length of object file ♦ 1 

From here 
according 

on the 
to the 

commands are stored sequentially 
following format: 

First command 


word 

KK 

Status for first command (-J) 


J - -2 - Fatal compilation errors 
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J = - 1 - Warning conditions 
encountered 


J = -0 “ Conpilation ok 


word 

KK+1 - 

Pointer to source copy of 
(-LL) 

command 

word 

KK+i: - 

Pointer to object code of 
(=MM) 

command 

word 

KK+3 - 

Number of warning conditions 
encountered for command 

word 

KK+4 - 

Number of fatal errors 
encountered for command 


word 

KK+5 - 

Room for up to 10 warning 
error code s . 

or 

word 

KK+14 



word 

LL 

Source copy of command 



woi ■ MM - Compiled format of command. 

The format for each command is 
described in section 900.2.3. 


The second command follows, etc. 

Compiled Command Forma t-s 

The soiuce form of the commands is shown here to clarify 
the compiled formats. For a description of the effect 
of each commaiid, parameter options and default values, 
etc., tJie reference 1-1, section 200. should be used. 


1. CpJMPILE (I=afile, ^=bfile, reformat, M=mode) 


Compiled format is: 

word 1 - Bits 59-12: 8LC^#MPlLEb 

Bits 11-0 : Command type (=1) 


word 2 


Length of compiled format 








f 


if . 


word i 
word 4 
word 5 
word 6 


- Compile input tile (atile) 

- Curiipile output rile (b£ile) 
Source code format 
Procedure execution mode 


2. KUN (I=^afile/ J?=btile, F=i ormat, M=raode) 
Compiled turmat is: 

word 1 “ Bxts 59-12: BLCj^MPILEX 

Bits 11-0 : Command type (=2) 

words 2-0 - Same as for COMPILE command 

3. RUN {ft - btile, M - mode) 

Compiled format is: 

word 1 - Bits 59-12: SLKUNbbbbb 

Bits 11-0: Command type (=3) 

word 2 - Length of compiled format 

word 3 *■ Procedure name (object code file) 

word 4 - Procedure execution mode 

4. IxEVEKT ~ bfile, M = mode) 

Compiled format is: 

word 1 - Bits 59-12: SLREVEKTbb 

bits 11-0 : Command type (=4) 

word 2 - Lengtli of compiled format 
word 3 - Revert procedure name 
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word 4 - Execution mode to be assumed 
by the revert procedure 

5 . RETURN 

Compiled format is: 

word 1 - Bits 59-12: BLRETURNbb 

Bits 11-0 : Ccmmand type (=5) 

word 2 - Length of compiled format 

6. C0RE (PL = nnn) 

Compiled format is: 

word 1 - Bits 59-12: 8LC(?Pwcl)bbb 

Bits 11-0 : Canmand type (=6) 

word 2 - Length of compiled format 
word 3 - Requested field length (=nnn) 

7. gUIT 

Compiled format is: 

word 1- Bits 59-12: OLQUlTbbbb 

Bits 11-0 : Command type (=7) 

word 2 - Length of compiled format 

&. EXECUTE module (plist) 

Conipilea lormst is: 

word 1 - Bits 59-12: SLEXECUTEb 

Bits 11-0 : Command type (=8) 

word 2 - Length of compiled format 


♦j 


5 
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word 3 
word 4 
word 5 


- Overlay tile name of module 
Primary overlay number 

- KCj^NPAfc ot oommon block /C0NPARS/ 


word 6 on - Array C(®)PARS of common block/C0NPARS/ 


9. KEAD INPUT (plist) 


Compiled format is: 

word 1 - Bits 59-12: bLREADbbbb 

Bits 11-0: Command type (=9) 

word 2 on - Sanie as tor EXECUTE command 

10. L0AD naiTie (plist) 

Compiled format is: 

word 1 - Bits 59-12; 8LLJ2iADbbbb 

Bits 11-0: command type (=10) 
word 2 on - Same as for EXECUTE command 

11. SAVE nanie (plist) 

Compile format is: 

word 1 - Bits 59-12: 8LSAVEbbbb 

Bits 11-0 : Command type (=11) 

word 2 - Same as tor EXECUTE command 


12. PRINT name (plist) 

Compile tormat is: 

word 1 - Bits 5 '>-12: BbSAVEbbbb 


I 


> 
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Bits 11-0 


; Command type (-12) 
word 2 - Same as for EXECUTE command 

13. INDEX FILES (plist) 

Compiled torniat is: 

word 1 Bits 5y-12: SLlNDEXbbb 

Bits 11-0 : Command type (=13) 

word 1 on - Same as tor EXECUTE command 

14. PRJJBLEiM ID (text) 

Compiled format is: 

word 1 - Bits 59-12: 8LPR)<JBLEMb 

Bits 11-0 : Command type (=14) 

word 2 - Length of compiled format 

wora 3 on - Contains "text" 

15. CHANGE ID (text) 

Compiled format is: 

word 1 - Bits 59-12: SLCIIANGEbb 

Bits 11-0 : Command type (=15) 

word 2 on - Same as for PRpPBLEM ID command 

It). PURGE name (plist) 

Complied format, is: 

word 1 - Bits 59-12: bLPURGEbbb 

Bits 11-0 : Coiranand type (=16) 
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word 2 - Length ot ccmpiled tormat 

word 3 - KC0NPAK ot cxjuitnorii block /C^NPARS/ 

word 4 on - Array CJ3NPARS ot coinrion block /C>iNPARS/ 

RENAME MATRIX (pi 1st) 

Cctfnpiled tormat ic: 

word 1 - Bits 59-12: bLRV..AMEbb 

Bits 11-0 : Cor -.and type (-17) 

word 2 on - Same as tor PURGE command 

Gfirr0 (label) 

Compile tormat is; 

word 1 - Bits 59-12: 8LG(3T)iJbbbb 

Bits 11-0 : Command type (=18) 
word 2 - Length of ccmpiled format 

word 3 - Contains the •'label'' 


IF (logical expression) 


Compile format is; 

word 1 - Bits 59-12; SLlFbbbbJob 

Bits 11-0 : Command type (=19) 

word 2 - Length of ccinpile *ormat 

word 3 on - Contains the logical expression 

as a compressed string of characters 


INTEGER (A, 


. .) 


b(nn) , . 



■Jomi'ile lormat is 


w. )x d 1 

word 2 
word j 
Wv^rd 4 
woid 5 
word b 
vK'rd 7 


- Bits 59-12: BLINTtGBRb 

bits 11-0 : Conimand type (=20) 

- Length of compiled format 
Ncune of tirst paraineter (=A) 
Index of first paraineter (=0) 

- Name of second parameter (=B) 
Inaex of second parameter (=nn) 

- Etc . 


21. RLTd. (A, .)»••) 

Compiled forirat is: 

word 1 - Bits 59-12: SLREALbbbb 

bits 11-0 : Command type (=21) 

word 2 on - Same as tor INTEGER command 


2z. LOGICAL (A, 3(nn) ,....) 

Ccaiipiled tomnat is: 

word 1 - Bits 59-12: BLLpGlCALb 

Bits 11-0 : Command type (=22) 

word 2 on - Same as for INTEGER command 
23. CJ3WTINUE 

Compileu format is; 

worn 1 * Bits 59-12: 3LCKJNTINUE 

Bits 11-0 : Command type (=23) 
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word 2 


Length of coripiled fornidt 



» 
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^4. LIST option (A, B (nn) , . . . .) 
compiled forinat is: 

word 1 - Bit.® 59-12: BLLISTbbbb 

Bits 11-0 : Command type (=24) 

word 2 - Length of compiled format 

word 3 - Contains "option" 

word 4 - Number of parameter list statements 

word 5 - Name or first parameter (=A) 

word 6 - Index of first parameter (=0) 

word 7 - Name of second paranieter (=b) 

word 8 - Index of second parameter (=nn) 

word 9 - Etc. 

25. Arithmetic Expression 

Compile format is: 

word 1 - Bits 59-12: 8LAE:<PRbbb 

Bits 11-0 : Command type (=25) 

v’ord 2 - Length of compiled format 

word 3 - Contains the arithmeLic 

expression as a compressed 
string of ciiaracters 



iJ 

“ i 

S 

U 
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900.3.1 General 

Fiyure 900-1 aepirts the lunctional structure of the 
interactive control processor , showing the relations^ 4 ip 
ot the major c Jiaponents/subroutines of the system. The 
thiree major tuiictions of the processor discussed in 
section 9C .1.3; termi..al conmamications, command 
execution, and mordtorinq of operations, are performed 
by the t.hret, subroutines Cj3Nbytt.E, EXECUTE and Mj3NnVR. 
These routines .ilong with some important subordinate 
tunctioni< will be discxissed in the following paragraphs. 

The control processor is invoked from the CpNTRJ3l. (1,0) 
overlay by a call to the riJNIT)3R subroutine. This call, 
along with some additional control code is generated 
from the ATLAS control statement 

INTERACTIVE CJ<JNTK)(JL. 

The control processor uses blank common as its primary 
work area in oraer to accommodate variable size 
information. The prograni mainta?ns its own core size 
requirements. In general it will work on a minimum-siz? 
blank coiiuaon area ot 300 octal locations, however, when 
a laiger requirement is detected at a certain stage of 
the operations, the tiela length will be changed for the 
duration of that requiiement . The job field length 
specified by the user will be maintained for processing 
external tw control piocessoi . The code used to 

ii;anage the fieldlength is contained in the subroutine 
CHaNGFL and the commoii biock/C0KELEN/. 
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RUN 


REVERT 


CIRE 


XM0DULE 


PR8LMI0 


IM8DULE 

60T0S 


DECLARE 


LIST 


AEXPR 


C0NMENT 
I— I L0CLABL 
L0CID 

H SPECIAL 
PARLIST 

M finish 



FINISHA 


— 

FINISHB 

— 

FINISHC 

— 

FINISHO 

— 

FINISHF 

— 

FiNISHG 

— 

FINISHH 

1 

FINISHI 
1 


Fluict loricil Structure ' ae 
Interactive Control Procesoor 


L0CPLST 

FINDTYP 

DEC0DEA 

DEC0OEB 

DECBDEC 

DEC0OEO 

OEC0OEF 


1^00.17 










The Routine 




Txie nionitur directs the ''tratlic" Detween the terminal 
activity, the loce»l conauand execution, and the external 
ATLAS code. Its actions uefend on the value of the 
tollowing Icxjical variables : 

lACTlVE - This variable has the value true for the 

uuration of interactive processim?. The 
value is set in the QZWTR0L (1,0) 
overlay. The monitor will turn the value 
to false in the following two occasions; 

1) when a yUlT ccromand is processed, and 

2) if a batch job attempts to access the 
control processor. 

READ - When READ - ^ue the C(9KS0L£ subroutine 

will be called causing interaction with 
the terminal. 

EXEC - When EXEC = true the monitor will call up 

the EXECUTE function. 


EXlTi - When EXTL = true this Variable directs 

the monitor to branch to an external 
ATLAS program module. Logically the 
control processor is still in execute 
mode while tliis is going on, and control 
will return to the EXECUTE routine once 
the ATLAS module is completed. 

yU7T - When fUIT = true the nK>nitor will 

terminate the interactive processing 
mode . 

90 0 . J . i The C0NSj3LZ Routine 

a. Initialize. 

aa. Rewind the source code file (lEXTFlL) 

ab. Set minimum field length, 

ac. Set input butter pointers. 

b. Read one record from terminal. 

ba. Write A -prompt (A>) , then react record. 
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baa. Fiiid position of lirst and last non-blank 
character in input record (routine 
NVNBLKK) 

bab. If no non-blank cnaracters found, go 
to (ba) for new record. 

bac. it first character is ampersand (S) we 
have a priority command. Branch to (c) . 

baa. It last character is number symbol (#) 

It IS a signal to terminate terminal mode. 
In that case - - 

bada. Set terminal termination flag 
(FlNl = true) . 

badb. Keplace # character by $ 
character in case user forgot 
to indicate end -of -command 
himself. 

bb. Store input record in source code buffer. 

bba. Add end-ot-line symbol to input record 
(12 bit zero oyte) 

bbb. Increase fieldlength it required. 

bbc. Copy input record to buffer. 

bbd. If termination flag is set branch to (d) . 
If jiot branch to (b) for more. 

c. Process priority commands 

ca. Compress conmand, ie. take out all blank 
characters (routine CJ^PRSS) . 

cb. Find command type (routine C^PARE) 

cba. If type not recognized write message 
and branch to (b) . 

ebb. Branch according to command type. 

cc. SDELETE/SPRIhT commands 

cca. Find beginning of argument list 
(position of comma) 
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ccb. It no comma found, interpret that as 

aryuxi\ent missing. In that case 

ccba. Set default argument value =1 

ccbb. Branch to (ccd) 

ccc. Decode argument 

ccca. Check tiiat argument is positive 
integer 

ccd. Space back in source code buffer the 
specified number of lines 

ccda. It buffer is empty write message 
and branch to (b) 

ccdb. Locate the specified number of 
zero bytes. If no zero bytes 
found, or fewer them specified, 
position at beginning of source 
buffer . 

cce. If SDLLETL command 

ccea. Keset source buffer pointers at 
position foiond in (ccdb) 

cceb. Branch to (b) 

cef . If &PKINT command 

ccta. Print from position found in (ccdb) 
to end of source buffer 

cefb. Branch to (b) 

&C0RL Command 

cda. Find beginning of argument List 
(position of comma) 

cdb. If conuna missing, interpret that as 
argument missing. Write messaue and 
branch to (b) 

cdc. Decode argumeiit 

coca. Check that argument is an integer 
within reasonable range 


I 


cdcb. Keset the value for user 
f ieldlenyth 

cdd. Blanch to (b) 

ce. &£bIT cononand 

cea. Find beginning of argument List 
(position of comma) 

ceb. If conuita is missing - no arqxunent list 

ceba. The default edit file is TEXTPIL 

cebb. Branch to (ced) 

cec. Decode argument list 

ceca. Check that name is legal; ie, 

length < 7 characters and first 
character being a letter 

ced. Write the source code buffer to disk 
tile TEXTPIL 

cee. It edit file # TEXTPIL, open the file 
cet . Call the EDIT subroutine 

ceg. Retxirn from edit mode 

ceua. Close the edit tile, unless it 
is TEXIFIL 

cegb. Clieck length of TEXTPIL to see 
it fieldlength requirements have 
changed. 

cegc. Kead TEXTFIL 

cegd. Branch to (b) 
d. Return to monitor 

da. First handle the case when the source code 
butter is emity (no new commands specified) 

daa. It no procedures are active, write 
message and branch to (b) 
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dab. Set up return to current procedure 

ob. Soiurce cooe butler contains new coininands. 

Nest this procedure to current procedure 

dba. Set up object code file name. (First 
6 characters cure (JBJECT. The 7»th 
character is the display code 
equivalent of c.he procedure level) 

dbb. Set up compile-execute command to 
process the n«# procedure 

dc. Write source code buffer to TEXTFIL 

dd. Set control to transfer to execute mode 

de. Return 

900.3.4 The EXECUTE Routine 
a. Initialize 

aa. Set miniraun fic dlength 
)•'. Branch accordiiiq to entry mode 

ba. If processing of external ATLAS code has just been 
terminated (varicible EXTL = true ) then branch to (d) 

bb. Otherwise execution of a itew command is to be 
initiated. Branch to (c) 

c. Start execution of new command 

ca. Set control variable XBST = false (XBST is set 
;^ue it , during execution of one conanand all the 
control information tor executing next command 
is set up) 

cb. Branch according to command type to one of cc 
through eg 

cc. CjtfMPILE and CJ?MP1LEX coiiu.>ands (subroutine 
CJJMPILE) 

cd. RUN commands (subroutine RUN) 

ce. REVERT commands (subroutine REVERT) 
ct . 


RETURN commaiids 


cf a. 


Set control variable READ = true 


clb. Branch to (e) 
eg . C0RE conimand (subroutine C0RE) 
ch. QUIT command 

cha. Set control variable QUIT = t rue 

chb. Branch to (e) 

Cl. EXECUTE, READ, 10AD, SAVE, PRINT and INDEX 
commands (subroutine XM0DULE) 

cj. PROBLEM ID and CHANGE ID commands 
(subroutine PRBLMID) 

ck. PURGE and RENAI'iE commands (subroutine 
IM(3fDULE) 

cl . G0T0 commands (subroutine QjiT0S) 

cm. IF conanands (subroutine IFS) 

cn. INTEGER, REAL and LJ^ICAL commands 
(subroutine DECLARE) 

CO. CONTINUE commands 

coa. Branch to (e) 

cp. LIST commands (subroutine LIST) 

eg. Arithmetic statements (subroutine AEXPR - for 
the time being this is a dummy routine) 

cr. Check if any of the sxibroutines above have 
requested transfer to external ATLAS code 
(check value of EXTL) . It so, branch to (e) 

Iinish execution of one command 

da. If error ilag (KEKR0R) hoS been set 

daa. Reset error flag (KLRR^R = 0) 

dab. Request transfer to terminal (READ 
= true) 


db. If transfer flag to teni.inal set, branch 
to (e) 

dc. If execution butler (tXBUF) has been set 
by last command (XBST = true ) , branch to 
(c) to have it execvrted 

au. It current procedure is executed in FULL 
mode (no interrupt from terminal) 

dda. Set up a KLVEKT command to continue 
processing that procedure 

ddb. branch to (c) to have the REVERT 
command executed 

de. If current procedure is executed in STEP 

mode (intfcrrt?)t trom terminal after each 
command) 

dea. Set transfer flag READ = true 

deb. Branch to (e) 

df. If none of da - de above something is 
drastically wrong. Write message and 
transfer to terminal 

e. Terminate execute mode (Set EXEC = false ) . 

Return to monitor 

900.3.5 The COMPILE routine 

The CjJKPlLE routine translates a source code procedure 
(sec. 900./!. 2 1) into an object code procedure (sec. 
900.2.2.3/4) 

a. Initialization 

aa. Set minimum field length 

ab. Open the source code file and the object 
code file 

ac. Check th >t f ieldlenglh is big enough to 
read the source file 

ad. It source file is empty exit with error tla<’ 
set 

ae. Read source file 
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at. If souice tile is written in BATCH mode 

(ie. Fj^KTRAN compatible format) convert it to 
TTY format defined in sec. 900.2.2.1 
(subroutine CyJNVTTY) 

ao. Count number of commands on source file. 

Count number of $ signs (routine CHARCNT) 

ah. Initialize core butfer to contain object 
code 

aha. Adjust rieldlength so the object butter 
is '’reasonably” big (it should at least 
be MINBUF big) 

ahb. Set buffer to zero 

ahc. Set 1'st through 4’th word of object 
code header. 

b. Decode one command at a time 

ba. Check it all commands have been decoded 
(are we past the last $ sign on the source 
file?) 

baa. If decoding done branch to (c) 

bb. Bound position of next command, i,e., position 
leading and trailing $ sign (subroutine 
L0CCHAR) 

be. Check if next canmand is a comment (logical 
function COMMENT) . A comment either starts 
with the two characters ♦/, or it is a blank 
or aii empty command. 

bca. If command is a comment, branch to (ba) 

bd. Increment command counter 

be. Place copy of command iii obji code butfer 
(see sec. 900.2.2.2, word LL) 


bf . Set aadress of w^ru MM of object code buffer 

bg. Check that fieldlength is big enough. There 
must be room tor max number of parameter list 
parameters (LPAKAM) 
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bh. Locate and decode the command label 

(subroutine l.|^L'IiABL) 

oha. Locate position of label delimiter (:) 
bhaa. If no colon, branch to (bhe) 

bhb. Locate positicn of equal sign (=j . 

(We have to see if the colon is part 
of "set equal” (:=) of an aritlimetic 
expression) 

bliba. If no equal sign branch to (bhd) 

bhc. Both colon ana equal sign exist, do we 
have a label? 

bhca. No laoei it ; and = occur in 
that order, and are either 
consecutive or are separated 
by blank characters only. In 
that case branch to (bhe) 

bhd. Dficoae label 

bhda. Compress label to the left ot 
the field 

bhdb. Check that label is not empty, or 
longer than 7 characters 

bhe. Terminate LJiClABL 


bi. Locate and decode' the command identification 
(subroutine L0C1D) 

bia. Locate position ot id delimiter. It is 
either the first left parenthesis, or the 
first comma following the label 
delimiter. It none of these is found, 
end-of-ID is set tc end of c:omini.nd 

bib. Compress ID towards Uie label delimiter 
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Locate priiiiary ID (subroutine C0MPARE) 

bica . If no primary ID found the command is 
either an arithmetic expression or 
un -recognizable . Branch to (bie) 

Look for secondary ID (subroutine C0MP/iRE) 


bioa. 


bidb. 


bide. 


First mask off the primary ID so 
we Can find out where the secondary 
ID starts. The primary ID need not 
be complete, so mask off as many 
characters as match with the complete 
ID (stored in array NLISTB) 

If secondary ID empty branch 
to (bie) 

Locate secondary ID (subroutine 
CjaiMPAKE) 


bie. Terminate LJJCID 

Decode the special conimands PROBLEM ID, 

CHANGE ID, IF, and arithmetic expressions 
(subroutiiie SPECIAL) . The parameter list of 
these commands does not tollow the syntax 
of other conmiands, so t)iey must be treated 
separately. 

bja. Call the SPECIAL routine 
ojb. Bra. ,;h to (bm) 

Decode the par.-.r.ieter list of all regular 
commands accordxna to the syntax rules and 
translated form., is described in section 200.3 
(subroutine PARLiST; 

bka. Locate rho po;-ition of the command 

paromter list (suoroutine L0CPLST) . 

The position o.t tte leading parameter 
list deiimitor is ti.e command ID 
delimiter. The pos.’ii.on of the 
trailing parameter list delimiter 
(a right ranthesis or a period) 
is found hy a character search from Jie 
trailing coiiunand delimitv^c towards v.he 
leaJinq coiranand delimiter. 
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. Decode one statement at a time. 
Statement delimiters are commas. 

S to cement types are designated as 
follows: 


type A; keyword (index) 

(123) 

type B; keyword = parameter 
AA = 67, BB = VALUE 
type C: keyword = multiparameter 

SAM = (4, 13 Tff 21) 

type D: keyword = list expression 

^AD = 1 T0 9 BY 2 

type E; keyword = matrix expression 
MAT = [ A - E ♦ C] 
type F: Matrix expression 

[ (A ♦ B) ♦ C = 0] 


bkc. Locate leading and trailing deliirdter 
tor next statement (subroutine L0CCHAR) 

bkd. Find the statement type (subroutine 
PINDTYP) 

bke. Brancn according to statement type to 
one ot bKt through bk] 

bkt. Decode statement type A (siibroutine 
DECjilDEA) 

bkq. Decode statement type B (subroutine 
DLCjrotB) 

bkh. Dec'xJe statement type C (svjbroutine 
DECk’DEC) 

bki. Decode statement type D (subroutine 
DECIDED) 



900.28 




bkj. 

Decode statement type L 
(subroutine DECJ3DEP) 

and P 

f 

bkk. 

Branch to (bkc) it niore 

statements to 

0 


be decoded 



bkl. 

Terndnate PAKLIST 



bl. Corn let e aecodino ol patometer list £oi 
coiffTiand (suuroutiite FlNl:aH) . this 

section all unique options for c. particular 
cornraand will be tested, and the final object 
coae tor the comiuand produced. 

bla. Complete compilation of CVJMFILE, 

C^.PLEX aiKt RUN comiDands (subroutine 
FlNlShA) 

bib. COHiplete compilatioir of REVERT coiranand 
(sutrroutine FlNIbHB) 

blc. Complete compilation of comiuand 

(subroutii.e FINISHC) 

bla. Coini lete comi ilation of EXECUTE, READ, 
LHAD, S/iVE, PRINT anc INDEX commands 
(suLroutiiie FINISHD) 

ble. Comi lete compilation of PURGE and 
RENAME coniiiands (subroutine FINl^KF) 

blf. Complete compilation of G^lV commands 
(subroutine FINIijKG) 

big. Complete compilation of INUoC*-R, HE/»L, 

and LAICAL commands (subroutine KiNISHHl 

blh. Complete compilation of LIST commands 
(suoroutine FINISH I) 

bli. Terminate FINISH 

bni- Set woids KK throuclr KR*4 of object code of 
conkUiand (sec. 900.2.2.2) 

bn. Increnient total error anC warning counters 


bo. 


Branch to (ba) 



c . Cuiiplete compilation ot cdomand procedxire . 

Co. Set Values ot the object code headev (tirst 
10 words) 

cb. Write sununary error or Wcirianq messages if 
necessary 

cc. Write object code butter to disk 

cd. It coiuniand is CJiKPILEX, prepare execution 
butter to execute the com^-iled procedure 

ce. Close source code file and object code tile. 
(Not it source code tile = TEXTFIL) 

ct . Terminate C^WPILL 

90U.4 COi-lMUN BLOCK USAGE 


900.4.1 /Cv«JPARty 
/KEKKfaH/ 

you. 4 . 2 /C0KELEN/ 


/DATABaS/ 


/LRRSECT/ 
/I ACTIVE/ 


/NLISTV 


ATLAS systePu corimon blocks described 
in section 100.2 

Contains parameters tor managing 
dynandc tieldlength during the 
execution ot tlje interactive control 
processor 

Contains a core resident version ot 
the data Oase 

Contains variables related to error 
reporting tor tlie interactive control 
code 

Contains basic control variables tor 
tiif interactive control processor, 
wnich must be kept in the root overlay 
curing execution. 

Contains tiie priority command 
identitications 


/NLISl'B/ 


Contains the primary command 
identif ications 
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Coutdxns the secondary command 
idi iitit ications 


/PARA^y 


/I'FILLS/ 

/XFkKt^i/ 


/XbST/ 


Coiranunication area tor subroutines 
PAKLl^r aiiti FINISH. It contains 
the decoded parameter list tor one 
coiranund . 

Contains the standard tile names 
useu by the control processor 

Contains basic control paraireter s 
used internally by the interactive 
control code 

Contains control intormation internal 
to the execution mode. 


1000. 


ATLAS LIBRARY ROUTINES 


All ntodules in ATLAS axe supported by the ATLASL Horary which i 
a cumbination ut the ALIB routines and the SNAHK library 
routines. ALIB routines are described in section 1001. User^ 
shcxila not cal.. SNARK library routines directly but should use 
the SNARK lanquage instead (ret. 10-1) . Additional routines 
which are available only to control programs are contained in 
CLIB. Tnese roitines are uescribed in section 1002. The 
ATLr.S/NASThAN interlace routines described in sections 1003 and 
1004 are also part ot CLlb since they are used by cor.^-rol 
pxograins. ILlb supports the interactive capabilities of the 
(J)^.>lTR>fL module aS described in section 900. VLlfi is used by 
control programs to st^>ply t:ie VERSION routine %diich initializes 
the VIPER conanon block. The creation ot VLlb is described in 
section 502.0. 
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ATLAS ALXB LIBRARY ROUTINES 


Routine Page 


AIKTG 

AINTL 

AISTT 

ARCL 

BEht-Kf 

bITCAT 

BSj^RTI 

CKKEini 

q^lSHAP 

C0MCU 

CUB1C2 

DATSRT 

bECdDiR 

DEKIV1 

LER1V2 

t«RMINT 

bDISHAP 

ELLPICK 

ELEPUT 

LSCAN 

ESET1 

tSJJRTI 

FILEADD 

FILEDEL 

FINDIFU 

FLIP 

Fl^P 

GKISkT 

iJdLKUP 

GRAB 

HERMIHT 

IDCHECK 

IPIND 

INCBCD 

INCR 

INCRB 

I£UB 

ITLMLST 

JAC0B1 

KSFRE0R 

UNLMT 

LJ3DAREC 

MAATTCH 

MAMULT 

HASKIT 

MATAINT 


1001.3 

1001.5 

1001.7 

1001.8 

1001.9 

1001.10 
1001.27 
1001.11 
1001.12 

1001.14 

1001.15 

1001.16 

1001.17 

1001.18 

1001.19 

1001.20 
1001.21 
1001.23 

1001.25 

1001.26 
1001.27 

1001.27 

1001.28 

1001.29 

1001.30 

1001.31 

1001.32 

1001.33 
1001.35 

1001.37 

1001.38 

1001.40 

1001.41 

1001.42 

1001.43 

1001.44 

1001.45 

1001.46 

1001.47 
1001.44 

1001.50 

1001.51 
1001.53 

1001.55 

1001.56 
1001.58 
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yATCXNT 

1001.59 

liATOJ 

1001.60 

.M0TAX(f 

1001.61 

MlWPTy 

1001.63 

^!(aVR(IW 

1001.65 

M0VSTG 

1001.66 

NbITI 

1001.67 

NbITSI 

1001.67 

KCIUR 

1001.68 

NCUIR 

1001.68 

N(9DPRKT 

1001.69 

PPTFiMv 

1001.70 

PIATbi? 

1001.71 

lyLY^ 

1001.73 

PRKTJICT 

1001.75 

KLFPT 

1001.76 

RLi^RSUB 

1001.77 

SCAMP4 

1001.78 

SCREW 

1001.79 

SPXLL 

1001.80 

SKLLLX 

1001.81 

SyASK 

1001.82 

S^RD 

1001.83 

S^SO l-Sti’E^OS 

1001.83 

ST<\h 

1001.84 

TRANS 

1001.85 

VECPR0D 

1001.86 

VTMEl 

1001.87 

VTMVl 

1001.88 

VTMVIA 

1001.89 

WGKAD 

1001.90 

WGRAH 

1001.94 

WtiKAT 

1001.97 

ZLKidCiH. 

1001.99 

ZL.“<iaUT 

1001.100 
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RuirriNE: AiNru 

AUllxuR: M. C. Redmun 


DATE: 

yVU^OSLi 


US/iGL: 


January 1973 

Generat.es (iispla cements and slopes at unsteady 
aerodynamics control points specified in the global 
axis system. 

DIHKNSI$IN X (NPIS) (NPTS) ,Z (NPTS) .DELZ (NRj9MZ,NC0LS) , 
1 Sh (NVAKY) »GAKMA (NPTS) ,0Z 1 (NR^Z »NCOLS) , 

1 DZ2(NR0WZ,KCULS) 

CALL A1NTG(X,Y,Z,NPTS, DELZ,NR0WZ ,NC^1,NC0LS,SA, 

1 INOG, GAMMA, 1NDD«DZ1,DZ2) 


PARAMETERS : INPUT 


X,Y,Z,NPTS 

NC0L1,NC0LS 


SA 

INDG 


GAMMA 

ISDD 


NROWZ 


(X,Y,Z) Location of NPTS output 
points in global system 
First coltmn and numoer of columns 
to be used 

If NCj2(LS=r, all colurms>NCj3L1 will 
be used 

Interpolation coefficient array 
Indicator for local orientation of 
normal conponent, 

=0 “ GAMMA assumed zero for all 
{x>ints 

=1 - gamma ( 1) applies to all 
points (GAMMA in radians) 

=2 - GAMMA (I) applies to point I 
Array of normal orientations 
GAMMA has same sign as DZ/DY of 
surface at point 

Indicator for generation of slopes 
at output points. 

=0 - No slopes, DZ1 and DZ2 
not required 

= 1 - D21 DZ/DX, DZ2 not required 

= 2 - DZl DZ/DY, DZ2 not required 

=^3 - DZ1 = DZ/DX, DZ2 = DZ/DY 
> NPTS = Row dimension of the matrices 
that are to contain the output 
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OUT PUT 


DILZ 

Nq^L^ 

LZ1,OZ2 


Displacements at output points 
No. colunms zeturncd 
Slope at output points 


INDD 


>0 

<0 


«10H*AINTG 1 


C0^j'40N : None 


Error indicator 
No error 

error of the form 10H*NNNNNNNXX, 
NNNNNNN= routine name, XX-error no. 
Interpolation coefficient 
array type not recognizable 


SULROUllNES ; AINTT,P1ATEJ» ,BtAMJ9,MjOTAX0,M0TPT'0,P0Ly;j 


LA.\GUAti£ : 


DISCUSSION: 


(1) Transform output points to local interpolation 
coordinate system by calling GTjSLT entry point 
of AINTT. 

(2) Select interpolation output routine associated 
with interpolation information array. 

(3) Generate displacements (optionally, slopes) 
at output points by calling: 

PLATE0 for surface spline method 

BEAM(i tor beam spline method 

M0TAX)9 for motion axis method 

I^TPTJJ for motion point (rigid body) metliod 

pj?LYp for polynomial method 

(4) Modify displacements (slopes) by difference 
between dihedral at output point and orientation 
of local system with respect to the global system. 

(5) Transform output points back to global system 
by calling LTi^GT entry point of AINTT, 




I 


I 


« 
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kOUTINL: 


AINTL 


AU1K0R: 

DAIi^: 

PUi^POSE: 

USAGE: 
PAI<AKETERS ; 


COMMON ; 

SUBROUTINES: 

LANGUAGE: 


M. C. Redman 
Jcinuaxy 1973 

Generates displacements and slopes at unsteady 
aerodynamics control points specified in the local 
axis sy*jtem 

DlMENSliifN X (NPTS) ,Y (NPTS) ,Z (NR^,NCOLS) ,SA (NVARY) , 
1 OZ 1 (NR0WZ ,NCOLS) ,DZ Z (NR(9WZ ,NCOLS) 

CALL AINTL ( X,Y,NPTS, Z,NR0WZ,NC0L1,NQ9LS,SA, 

1 1NDD,DZ1,DZ2) 


INPUT 


X,Y,NPTS 

NC)^1,NC0LS 

INDD 


NROWZ 


(X,Y) Location of NPTS output 
points in local system 
First coltnnn and number of columns 
to be used 

Indicator for generation of slopes 
at output points 

=0 - No slopes. DZ1,DZ2 not required 
= 1 - DZ1 = DZ/DX, DZ2 not required 
=2 - DZl = DZ/DY, L>Z2 not required 
=3 - DZ1 = DZ/DX, DZ2 = DZ/DY 
> NPTS The row dimension of the 
matrices containing the output 
displacements and slopes. 


OUTPUT 


Z 

NC10LS 

DZ1,DZ2 

INDD 


Displacements at output points 
No. columns returned 
Slope at output points 
Error indicator 
>0 - No error 

<0 •> error of the form 10H*NNNNNNNXX, 

NNNNNNN -routine name, XX=error no. 
=10H*AINTL 1 - Interpolation co- 
efficient array type 
not recognizable 


None 

PLATEJJ , BEAMf? , M0T AXJ? , hS?TP Tf» , PJ^LYJ? 
F^JRTR;iN 
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U-TiiCUSSlOK: (1) Select inter{X>lation output routine associated 

with iiiterpolation coefiicient array 
{Z) Generate displacements (optionally, slopes) at 
output i-oints by calling: 

PL/iTE'0 tor faurtace spline method 
bEAMj? tor beam spline met' • 

>y?7'AX)i tor motion axis m?-'^ icd 

^i^TPT>S lor mction point ■ -rigia * iy) method 

P0LY)d tor polynomial method 


1001 .6 







KOUTINt; 

AINTT 

AUlllOK: 

M. C. Redman 

DATE: 

January 1974 

PUftPOSE: 

Coordinate transf or nation routine for unsteady 
aerodynamics interpolation routxne AINTG 

USMsE; 

LIMENSI0N X(NPTS) ,Y (NPTS , 2 (NPTS) »K(3,3) ,T(3) 
CALL AINTT (X,Y,Z,NPTS,R,'r) 

PAKAMLTERS: 

INPUT 

NPTS - Number of points 

X«Y,Z - Coordinates of points 

k - Rigid rotatton matrix# global to local 

T - Translation vector, global to local 

OUTPUT 

X,Y,Z - Trar*stormed coordinates 

COMMON: 

None 

SUBROUTINES: 

None 

LANGUAGE: 

FORTRAN 


DISCUSSION: Er.try Points; GTJffljT - Transforms points from global 

to local S' 

LTJ3GT - Transform. >ints 
to global ^.xis. 


trom local 



kOLTINL; 


ARCL 


AU'OiOK: 

DAIL ; 
kUhPOSE: 

PARAMETER.S: 


COMMON: 

SUbKOUTINfc: 

LANGUAGE: 

DISCUSSION: 


M . C . Redman 


January 1973 

Determina the arc length along a cubic, between 
two points 

S = ARCL(X0,yC,'’1,C2,C3,X,Y) 


INPUT 


XO 

yo 

C1,C2,C3 


X 

y 


x-coordinate ot initial point 
y-coordinate of .v’litial point 
Cubic coerf i cienti' in Y defining the 
curve (note*, CO is not 'required) 
x-coordinate of final point 
y-coordinate of final point 


0 U TPUT 


/u:c length from (X0,Y0) to (X,Y) along 
the cturve x - C0+C1*y+C2+y2+C3*y^ 


None 

None 

5^RTRAN 

If the curve is a cubic, i.e., C3 * 0, a H point 
Gauss -Legendre quadrature is applied. Otherwise 
a closed form solution to the integral is evaluated. 
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ROUTINE: 


bEAM0 


AU1H0H: 

DATE; 

PURPOSE ; 

USAGE: 

COMMON: 

SUisKOUTlNES: 

LANGUAGE: 


Unknown 

Unknown 

Calculate modal displacements and optionally slopes 
at a set of output points, given an interpolation 
intormation array generated for a beam-spline system. 

See listing for a con^lete definition of all 
parameters 

None 

ARCL , CimCUB , LATSRT , HERMINl' , ZLRfaCfSL 
FORTRAN 



KuirriNL : 


blTCAT 


AMHOK: 

D/iTL : 
PUKPOSL: 

UbMiifc : 

PARAMETERS : 

CO>jMON : 
SUL-ivOUTINES: 
UiNGUAGE: 
DISCUSSION : 


W. J. Erickson 
Lecember 1973 

lo covmt the on bits ii* the masked portic»i of the 
words in an array 

rilMENSlj^N ARRAY (N) 

CALb BlTCAT (ARRAY ,MASK, N,NbIlS) 

INPUT 

ARRAY - Array with bits to be counted 
MASK - Masking constant 
N - Dimension of array 

OUTPU T 

NBITS - Nunibt*x of bits counted 

None 

None 

C0t-iPASS 

Use BlTO’iT in preference to NBITS 1 when an array 
is to be counted, or when the use of a masking 
word is indicated. 
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KUWINE: 


aiKEPK 


AU'IHOR: 

DA1£: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 

LANGUAGE: 

DISCUSSION: 


S. H. Gadre 
Jamiazy 1974 

To convert. ••MJJDE2'* L^AREC input to "M^EI" input 

DLMENSIJWJ DAIA(9) 

CALL CHK£(JR(OATA) 

INPUT 

LATA ~ Card image (dAlO) as read I^DAREC in 
DATA(1) - DATA (8) and blank tilled word 
DATA (9) 

OUTPUT 

DATA - Record converted to "MJJDEI" tormat 

None 

EjMiTRAN 

Tlie 90 charactezs in "DATA" are scanned right to 
left. It the first non-blank character found is 
aiiy chax acter other than + (plus sign) , a blank 
and a slash are written to its right- If it is 
a flus sign, it is replaced by a blank. 
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I 

ROOTINL: qZIlSHAP 

AUTHORS: G. vonLiinbach and S. Wahlst.roin 

DATE: December 1973 

PURPOSE: Generation of isoparotnetric shape functions and 

their tirst derivatives tor all corner nodes of 
quadrilaterals or hexahedrons. 

USAGE: (quad) DLMEKSl^ EVAL (3) , 1C00(ID,4), NEDGE(4) , 

1 XS1(5,4) ,NEDPJ3I{4) ,EDQ3RN(2,4) ,FUNC(2,4) , 

1 PARTIAL (ID, 4) 

(hexa) DIMENSljaN EVAL(3) ,lQiV(lD,8) ,N£DG£ (12) , 

1 XS1(5, ) NEDP(?I(12) ,EDC(2»RN (2,12) ,FUNC(2,8) , 

1 PARTIAL (ID, 8) 

CALL C^ISHAP(ID,EVAL,ICj9)a,KEDGE,XSI ,NEDp(?I, 

1 LDCiJRN, I UNO, PARTIAL) 

PARAMETERS: INPUT 

ID - Row dimension of IC00 and PrJlTlAL 

(2 tor quadrilateral, 3 for hexaheilron) 

EVAL - Array of coordinates ot the point 

at which the functxon and its partials 
are computed. (Dimension -3) 

1^90 - Array of corner coordir tes. ICjflj?(i,j) 

is coordinate X(i) of corner j 
KEDGE - Array of interior nodes . 

NEDGE(i), v*ere i=NEDP(2fI (e) , is the 
number of interior nodes on edge e. 

X£1 - Array of local edge coordinates. 

XSI(k,i), where i-NEDp0I(e), is the local 
edce coordinate of node k on edge e. 

NEDP^I - NEDPp^l (i) is the pointer to EDGE i 
in NEDgL and XSl. Thus NEIX5E and 
XSI must be stored in the same order, 
but not necessarily in order ot 
increasing edge number. 

EDC^N - Array or corner nodes. £DC0RN(j,i) is 
the jth corner node of edge i (j=l,2) 
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L•O^^MON : 
SUhKOOTINES: 
LANGUAGE: 
Dl:x:U:>SION: 


INPUl /OUTPUT 

fUNC - FUNC(1,i) is oxitput. as the value ot 
the shape tunction N (i) . 

FUNC (2,1) is replaced with normalization 
value (1.125) it input as zero. Otherwise, 
not changed. 

OUTPUT 

EAKTIAL - PARTIAL (l,j) = dN(1) 

dX(i) 


None 

None 

PJ3RTKAN 

Isoparametric shape tunctions «re treated in almost 
all texts on elementairy tinite element analysis, 
e.g., O. C. Zienkiewicz, The Finite Element Method 
in Enuineering Science, 2nd edition, McGraw hill, 
London, 1971, p, 107ft. 
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RijUTINE: 

AUTHOR: 

DATE: 

PU.-<R0SL: 

USAGE: 

PARAMETERS: 


COMMON : 
SUBROUTINES: 
LiiNG JAGE : 
LiSCUSSiON : 


Cj^MCU 

G. W. Erwin^ Jr. 

October 1962 

To fit a composite cubic through n(<400) points. 

DIMENSIiTN S(400) ,X(400) ,^(400) 

CALL C^:CU (LAfOB rS»X,Y ,L ,M,N ,NDA,NOB) 

INPUT 

X - Array of independent variables 
y - Array of dependent variables 

DA - Values of the derivative at x(1) 

DB - Values of the derivative at (n) 

L - Ignored 

N - The numlet of points 

NDA - The order of the Derivative at x(1) (1 or 2’ 

NDD ~ Tne order of the derivative at x(n) (1 or 2) 

OUTPUT 

S - The array of slopes at the given points 
M - Error condition 

= 0 if success 

= 1 if floating-point overflow (77462B) 

= 2 if overflow light on 
= 4 if divide check 

A positive value of M other than 1,2, or 4 
indicates more than one of these error conditions 
in which case M will be the sum of their 
iiidividual returns. 

None 

None 

FJ^KTKAN 

cyJMCU establishes a cuoic between each pair of 
adjacent points. The cubic matches its neighbors 
in function value and in the first two derivatives 
at its end poiijts. 
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ROUTINE: 


CUBIC2 


AUTHOR: 

DAIE: 

PUnPOSE: 

USAGE: 

PARAMETERS: 


COMyiON: 

SUBROUTINES: 

L/vNGUAGE; 

UISCUSSION: 




w. R. Smith 
March 1961 

Tx> tit a ciibic to two points, given the slope at 
each. 

DIMENSION X(2) ,Y (2) ,D(2) ,C(4) 

CALL CUB1C2 (X,Y,D,C,M) 

INPUT 

X(1),X(2) - 
Y(1},Y(2) - 
D(1),D(2) - 

OUTPUT 

C 
M 


None 
None 
P'((JRTKAN 

The subroutine sets up the system of four 
simultaneous equations expressing the four 
given conditions, and solves it tor the coef- 
ficients of the ctibic: 

y = C1+C2*x+C3*xz+C4*x3 


X - coordinates ot given points 
Y - coordinates of given points 
Slopes (dy/dx) at given points 


Array of cubic coefficients 
Error condition 
= 1 if success 
= 2 if accixnulator overflow 
= 3 if X(1) = X(2) 
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ROUTINi;: 


DATSRT 


AUlHORi 

DATE; 

PURPOSE: 

USAGE: 

P/iRAMETEKS: 


COMMON: 
SUBROUTINES: 
LANGUAGE : 
DISCUSSION: 


Gary C. Peterson 
March ly?5 

Given an array of real uunberSf sort the array into 
as'^ending order and creace a mailing array 

CALL DATSRT (A,AMAP,N,DIS,NPTUSD) 

INPUT 

A The array to be sorted 

N Length or A 

DIS A value used to determine when two elements 

of A are sufficently close to be considered 
identical 

N^JTUSD A value, which, when found, will be omitted 
from the ordered array 

OUTPUT 

A Tne ordered array 

AMAP /»n array of integers stored as floating point 

niimbers mapping the input A to the output A 
N Length of A, AMAP after ordering 

None 

None 

WTKAN 

Called by the routine BEAMJ?. 
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ROUTINE: CEC0D1R 

AUTHOR: C. A. Felippa 

L. J. Schmid 

DATE: December 

PURPOSE: DEQ9D1R is a support, routine to LtflDAREC. It 

updates error counters it fatal error 78 occurs. 

USAGE: qaMMpN/CARDS/REC (250) <,ID (250) ,KRECS,KCDS»ITEMS, 

1 KEKR(3),JBL 

CALL DECJ?DIR 

CO^IMON: qaMM0N/CARDS/REC (250) ,ID (250) ,KRECS, RODS, ITEMS, 

1 KERR (3) ,JBL 

See the L)A>A1<£C routine description for 
definitions of the variables. 

SUBROUTINE: None 

LANGUAGE: Pjn<TRAN 


DISCUSSION: KERR (3) ^ 0 implies an occurrence of erroi 78. 


I 

I 

J 

% 



1001.17 



ROUTINE; 


DER1V1 


AUTHOR: 

DAli.: 

PURPOSE: 

USAGE: 
PARAMETERS : 


COMMON : 
SUBROUTINE: 
LANGUAGE : 
DISCUSSION: 


L. F. Wade 
October 1961 

To find the first derivative of the qiiadratic 
tlirough three given points at a specified one 
of these points. This provides a good 
approximation to the slope of a fxinction at a 
point, particularly if the other two points used 
are nearby. 

DIMENSION X(3), ^(3) 

D1 = DERIVl (X,y,N) 

INPUT 

X • The array of x-coordinates 
Y - The array of y-coordiiiates 

N • 1,2, or 3, the point at which the derivati.ve 

is wanted. 

OUTPUT 

D1 - The first derivative at the requested point 

None 

None 

F^TRAN 

The subroutine finds the unique polynomial of degree 
two through the given points, then evaluates its 
first derivat-ive at the specified point. 

The X (i) must be distinct, but may be in any order 
and unevenly spaced. The points may be colinear. 
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ROUTINE; 

AUTHOR; 

DATE: 

PURPOSE; 

USAGE: 

P/U\AMETERS: 


COMMON : 
SUBROUTINES: 
LANGUAGE : 
DISCUSSION ; 


DERIV2 

G. W. Erwin, Jr. 

May 1961 

It) find the second derivative of the ciibic through 
lour given poxnts (X(i), V (i) ) at an arbitrary point 
whose x-coordinate is given. 

DIMENSIJ»l X (4) , y (4) 

D2 = DERIV2 (X,y,XX) 

INPUT 

X - The array of x-coordinates 
Y - The array of y-coordinates 
XX - The x-coordinate of the point at which the 
second derivative is wanted. 

OUTPUT 

D2 - The second derivative at the point x. 

None 

None 

FORTRAN 

The subprogram finds the unique polynomial of 
aegree three through the given points, then 
evaluates its second derivative at the desired 
X, which need not be one of the four given x 
coordinates . 

The X (i) must be distinct (the subprogram returns 
with D2 = 0, if they are not) . The x(i) may be 
in any order and linevenly spaced. 



5 
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KOUTINE: 


uHImMINT 


AUmOR: 

DATE: 

PURPOSE: 

USAGE : 

PARAMETERS : 
COMMON : 
SUBROUTINES : 
LANGUAGE : 


M. C. Rediiian 
August 197 1. 

Given F(X1) ,F(X2) ,DF (Ally-DX, and DF(X2}/DX, 
Calculate DF(X)/DX, X2>X>X1 tor N inodes vdiere 
Hermite interpolation is used to approximate F(X). 

DIMENSIPN DFX(NR1,N), FX1(NR2,N), DFX1(NR2,N), 
FX2(NK2,N), DFX2 {l'iR2,N) CALL DHRMINT (X,DFX,NR1, 
X1,FX1,DFX1,X2,FX2,DFX2,NR2,N) 

See listing for complete explanation of parameters. 

None 

None 

FJ^kTRAN 


DISCUSSION: Used by Fy3TAXpJ 



ROUTINE: 


EDISHAP 


AUTHOR: G. von Limbach 

S. Wahlstrom 

DATE: January 1974 

PURPOSE: Generation ot isoparametric shape ivinctions and 

their first derivatives tor all interior nodes 

on one edge ot a hexahedron or quadrilateral. 

USAGE: (quad) DIMENSIJZtN ID (4) , EVAL (3) , CJ3J? ( ), PARTIAL (3,2), 

1 FUNC(2, ) 

(hexa) DIMENSIJ2N ID (5) , EVAL (3; ( ), PARTIAL (3,3), 

1 FUNC (2 , ) 

CALL EDISHAP (1D,EVAL , PARTIAL, FUNC) 


PARAMETERS : INPUT 


ID 


EVAL 

CJ30 


ID(1)= 2 for quadrilateral 
3 tor hexahedron 

ID(2)= Number ot interior nodes on edge 
ID(3)= N=ID(l)+2 

ID (N) Direction indicators ot + 1 or 0 . 

When ID(2+i) is ± 1, this indicates 
that X(i) has this value for the edge. 
When it has the value of zero, it 
indicates that the edge is in the 
X(i) direction. 

Evaluation point. EVAL(i) is x(i) for 
the point at which the function and its 
part ia Is are evaluated. 

Edge coordinates . (k) is node k on 

the edge. Corners are included. 


INPUT/OUTPUT 

FUNC - FUNC(1,i) is output as the value 
of tne shape function N (i) . 

FUNC (2, i) xs replaced with 
normalization value xf input as 
zero. Otherwise not changed. 
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OUTPUT 


COMMON ; 
SUBROUT 7NLS: 
LANGUAGE : 
DISCUSSION: 


PARTIAL - PARTIAL (i,j) = dNfj) 

dX(i) 

None 

None 

FORTRAN 

Isoparametric shape functions are treated in aln-nst 
all texts on elementary finite element analysis. 

See tor example; 0. C. Zienkiewicz, The Finite 
Element Method in Engineering Science, 2nd ed_tion, 
McGraw Hill, London, 1971, p. 107f£. 
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KOUTINE 


ELEPICK 


f 



f 


_ J 


- t 


f 


> 


AUQ710R: 

DAIE: 

PURPOSE: 


USAbE: 


L. C. Carpenter 
July 1971 

To pick selected flexible elements out of a KSP 
matrix and store it in the new order into a scratch 
array. 

DIMENSION MFEEX( ),LCT( ),ISCRAT( ) 
C0HMJ?N/S0nTtLC/IL ,1U ,NPASS , INTSCR ,MAXSCR , ISCRFUL, 

1 LASTBLK^FLEXft 

qmMtm/MSKC0N/MSKO1 ,MSK02, . . .MSK60 
CALL ELEPICK (MFL2X,LCT,1SCKAT) 


PARAMETERS : INPUT 


MFLEX - KSF matrix 

LCT - Correspondence table (old to new) 

OUTPUT 

ISCRAT - Intermediate KSF matrix in new order 


C0N2MCM: 


CJ2M^«^N/S^2rRTLLC/XL, lU , NPASS , INTSCR , MAXSCR , ISCRFOL , 
1 LASTELW , MFLEXR 


IL 

lU 

NPASS 

INTSCR 

MAXSCR 

ISCRFUL 

JJ^ELW 

MELEXK 


Lower botjoid tor selection 
Upper bound tor selection 

Nxsnber of elements that will fit in ISCRAT 
Next tree word for element data block in 
scratch 

Total size of scratch 
Scratch overflow indicator 
Number of last element written 
Size of KSF matrix 


<4«4h^/MSKC0N/MSKO1 ,MSK02, . . .MSK60 
masking constaiits 
SUHkOUTlNE: None 


LANGUAGE: WTRAN 


I 




■I 

^ 1001.23 


— ,T 



ulocmSlOK: 


Kow I ol LCT cuatdins the new address (J) ot the 
old Itn element. A pass is made through tne KSF 
matrix. It the *J* toi an element lies within the 
limits IL - lU, the data tor the element is 
inserted into ISCRAT. 
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huirriNE 


ELEPUT 


AUTHOK: 

OA'IE: 

,UKPOSt: 

USAGE: 

PARAMETERS: 


CO»!uN: 


SUBROUTINE : 
LANGUAGE: 


L. C. Carpenter 
July 1971 

To construct the linal KSF ikatrix trom the inter- 
mediate matrix ISCRAT, generated by ELEPICK. 

DlMENSIjaW 1SCRAT( ),KFLEX( ) 

C(mN(7N/S(7RT£U:/lL , lU , NPASS , INTSCR , KAXSCR , ISCRFUL , 
1 LASTELW.MFLEXR 
CyHN$9N/MSKC0N/HSKO1 ,HSK02, . . .MSKbO 
CALL ELEPUT (1SCRAT,MFLEX ,NlR,NWjroDS) 

1 NPUT 


ISCRAT - Intermediate KSF matrix 
OUTPUT 


MFLEX 

NIR 

NWI9RDS 


The KSF matrix 

Number ot elements in the KSF natrix 
Size o£ KSF matrix 


qaKM<«* /SjaRTELC/IL , lU , NPASS , INTSCR , MAXSCR , 1 SCRFUL, 
1 LASTELW ,MFLEXK 


IL 

lU 

NPASS 

INTSCR 

MAXSCR 

ISCRFUL 

LASTELW 

MFLEXR 


Lower bound for selection 

Upper bound for selection 

Number of elements in ISCRAT 

Next tree word tor element data block in 

scratch 

Total size of scratch 
Scratch overflow indicator 
Number of last element written 
Size ot KSF matrix 


CjaMMjaW/MSKC^/MSKOI ,MSK02, MSK60 

masking constants 
None 


IVPTRAN 

Data for elements are picked up sequentially from 
ISCRAT and put into KSF matrix iii appropriate form. 


DISCUSSION: 



RulTIlNE: 


tSCAN 


AUllluK: 

DATL: 

PURPOSE: 

USAGE : 

PiiKAMETERS : 


COKMON: 
SUBROUTINES : 
LANGUAGE: 
DISCUSSION : 


W. J. EricKSOi. 

November 

Locate tl*e row ot a matrix which ha? the sp.icified 
occurrence of an item. 


DLMENSI0N MAI h'lATDIM) 

CALL ESCAN (MAT, MASK, MATD1M,N0CCUR, ITEM, NR0W) 


I N PUT 


MAT 

MASK 

MATDIK 

N0CCUR 

ITEM 


Matrix to be searcheii 
Masking constant 
Diioensicn ot MAT 
Occurrence of item to be found 
Iteiii to be found 


OUTPUT 

NR(9W - Row number foimd or 0 
None 


None 


QiJMPASS 

By specifying the mask, items p'acked in a word 
are located. 
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ROl/riNE: 

ENTRY: 

AUniOR: 

DATE: 

PURPOSE: 

USAGE: 


PARAMETERS : 


ES|2»IT1 

bS)«RT1, ESET1, ESJAITI 

Unknown 

Unknown 

To sort a vector in 'Li^n -descending orders 

DIMENSl^ V(N) 

CALL ESi»<Tl(V,N) 

CALL BS1ZRT1(V,N) 

CALL hSETl (K) 

INPUT 

V - Vector to be sorted 
K “ New criterion fov bubble sort 
N - Number of ?*l€mencs in vector 


OUTPUT 
V - Sorted vector 
COMMON: None 


SUBROUTINES: None 

LANGUAGE: qf»dPASS 

DISCUSSION: The algorithm used in ES^TI is an adaptation of 

that aue to M. H. Vcineinden. (See article on 
sorting ty William A. Martin in ACM Ccanputing 
Surveys, Vol . 3, No. (Dec. 1973) pg. 147-174). 
bS^RTI sorts the vector by using the bubble sort 
technique. Entry point ESET1 alters the minimum 
vector length for which the Vanemden sort is used 
from a default of 25 to K. 


1 

t 

5 

i 
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t 
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KOUTIKE: 


FILEADD 


AUThOK. 
DA1L: 
PUKPOSE: 
USAHtE ! 

PAKAFiETEKS : 


COMMON; 
SUBkOUTlNLE: 
LANCUAGB : 
DISCUSSION : 


G. von Limbach 
December 1973 

To open files for access by ATLAS overlays. 

DIMENSIjaW FET ( } 

CALL FILLADD (FET, FILE 1, . ..,FILEN) 

INPUT 

FET - Array dimensioned 100»N for FET tables 
FILE1 - File names (either integer or L format, 
N<20) 

FILEN 


See discussxon. 

L49CF , FETED IT , N PARMS , SYSTtH 
F^OvTRAN 

FETADD is used by FILEADD to open unblocked files. 
Files which do steindard P0RTRAN I/J? (READ, WRITE) 
should use FETEDIT to open files with appropriate 
buffer sizes and blockiny parameters. 
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ROUTINE: 

FILEDEL 


AUTHOR: 

G. von Liinbach 


DATE: 

December 1973 


PURPOSE: 

Delete and close all files not 
of ATLAS. 

on the program caurd 

USAGE: 

CALL FILEDEL 


PAi<AMETERS: 

None 


COWlON: 

None 


SUBROUTINES: 

l^F , CL06ER , FETDEL 


LANGUAGE: 

fl^RTRAN 


DISCUSSION: 

The routine is called by ATLAS 
primary overlay. 

after calling each 


1001.29 



KOUTINE; 


FINDIFU 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 
SUBKOUTINL: 
LANGUAGE : 
DISCUSSION: 


P. Nelson 
December 1973 

Find an internal element numoer from a user element 
number 

L^JGICAL MATCHED 
DlMENSl^’ KLCrOO{l) 

CALL FINDIFU (KLCTOO ,NFT,N0ELE, I£LEN0,MATCHED) 
INPUT 

KLCTOO - Data portion of KLCTOOa matrix 
NFx‘ - Row dimension of KLCTOO 

N0ELE - User element number 

OUTPUT 

lELENp - Internal element ntiraber (if any) 

MATCHED - True it NJ3ELE appears in KLCTOO 
False if N0ELE appears in KLCTOO 

None 

None 

FORTRAN 

Given d caiididate user element number, the routine 
performs a binary search for tfie user element 
number in matrix KLC'TOOa to attempt a match. It 
successful, the match flag is set TRUE and the 
corresponding internal element number is returned. 
If unsuccessful, the match flag is set FALSE. 
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ROUTINE; 


FLIP 


AUTHOR: 

DATE; 

PURPOSE; 

USAGE: 

PAItfO’iETERS: 


Cu:<MON ; 
SUBROUTINES; 


G. von L;.nibach 
October 1973 

Iransiorm a vector given a transformatxon matrix 
trom local to global. 

CALL FLIP(C,G,P,X) 

INPUT 

C - Appropriate coliuni: of local 
coordinate system matrix 
G - Origi tal vector in local frame 
P - Nodal coordinates 

OUTPUT 

X - Transformed vector 
in global frame 


None 

GRAB 


L/iNGUAGE : 


F0RTRAK 



ROUTINE 


AUIHOR: 

DATE : 
PURPOSE ; 

USAGE: 
PARAMETERS : 


COMPiUN : 
SUBROUTINES: 


FL^IP 

G. von Linibach 
October 1973 

Transiorm a vector given a transformation matrix 
from global to local. 

CALL FLJ«P{C,G,P,X) 

INPUT 

C - Appropriate column of local coordinate system 
matrix 

G - Original vector in global frame 
P “ Nodal couxdinates 

OUTPUT 

X - Transformed vector in local frame 


None 

GRAB 


LANGUAGE 


FjaRTRAW 


f 


iiOUriNL 


GMISRT 


I 


t 


» 


AUTHOR: 

DAIE: 

PURPOSE: 

USitGE: 

PhRhMETERS: 


H. Hansteen 
October 1974 

To define an entry for a new user matrix 
in the ATLAS user matrix name catalog. 

CALL GMISRT(IRR,MNAME,FNAME,NRJ2»W,NC12»L,MTyP, 
1 NDTYP,MBLS,NMBL) 

INPUT 


MNAME 

FNAME 

NP0W 

NCVL 

MTYP 


NDTYP 

MBLS 

NMBL 


Name of new matrix 

File name where matrix will be stored 
(L- format) 

Matrix row dimension 
Matrix column dimension 
Matrix type indicator 
=1 - rectangular matrxx 
-2 - symmetric matrix 
=3 - diagonal matrix 
=4 - null matrix 
Storage format (=1) 

Maximum niatrix block size 
Number of matrix blocks 


OUTPUT 

IRK - Error flag 

= 0 - standard retxirn 
=-2 - matrix with same neime has been 
over -written . 

=-3 - illegal filename (not an ATLAS file) 
--4 - errors in remaining argument list 
=-5 - checksum error for disk read operation 

COMMON: C^dM0N/MATTAB/ - ATLAS executive system common block 

- ATLAS executive system ccanraon block 

SUBROUTINES : INCRB , SHIFT , REDER ,WRTER , LCKSUM 


LANGUAGE: FORTRAN 


r 
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DISCUSSION: 


. user matrix netme catalog is generally saved on 
the system tile SYSRNF. If the size of the 
catalog is small* huwevci, a copy of the catalog 
is kept in core only. GMISKT works as follows: 

a) It checks ii the specified matrix name is 
previously defined in the catalog. If so it 
returns with the error flag set. 

b) It checks that the specified file name 
coincides with one of the ATIAS data files. 

Error return if check is negative. 

c) Checks range of remaining parameters as follows: 

0 < NR0W < 2*«-1 
U < NC{?L < 2»»-1 

1 < Ml-YP < 3 

NDTYP=1 

0 < MBLS < 2*»-1 
0 < NMBL < 218-1 

Error return it check is negative. 

d) Generates the new entry into the catalog . 

No error messages are printed from the routine. 
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ROUTINE 


GMLKUP 


AUTHOR; 

DATE: 

PURPOSE: 

USAGE: 


COMMON; 

; SUBROUTINES: 

LANGUAGE: 


^ t 


H. HaiiSteeii 


October 1974 


To extrect a "■:>ecified entry in tiie ATLAS user 
inatrix ncune catalog 

CALL GMLKUP ( IRR, MNAME , FNAME , NRJ3W , NQ0L ,MTYP , NDTYP , 
1 MBLS,NMBL) 

INPUT 

MNAME - Name of matrix for which information 
is sought 


INPUT/OUTPUT 


IRR (in) 


IRR(out) 


= 1- Checks it matrix exists and returns 
output parameters 
* 1- CiecKs if matrix exists only 

= 0- Standard return, inatrix found 
=-1- Matrix name not in catalog 
=~2~ Catalog empty 

=-5- Checksum error for disk read operation 


OUT PUT 


ENAME 

NRJJW 

KCJ2IL 

MTYP 


NDTYP 

MBLS 

NMBL 


File name where matrix is stored 
Row dimension of matrix 
ColuiTin dimension of matrix 
Matrix type indicator 
= 1 - rectangular matrix 
= 2 - symmetric matrix 
= 3 - diagonal matrix 
- H ~ null matrix 
Storage format (=1) 

Maximum matrix block size 
Number of matrix blocks 


C^MM0N/M/iTTAB/ - ATTiAS executive system common block 

INCRB , SHIFT , REDER ,LCKSUM 

FjaRTR7d>l 
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DlSCUSiilON: llie user matrix name catalog is gener^ lly saved on 

che system file SYSKNF. If the size of the 
catalog is small, however, a copy of the catalog 
is kept in core only. 

No error messages are printed from the routine. 
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ROUTINE: 


GRAB 


AUIHOR: 

LATL: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 
SUBROUTINE: 
LANGUAGE : 
DISCUSSION: 


G. von Lxmbach 
September 1973 

To compute the global-to-local transformation 
matrix for a given local coordinate system at a 
given point. 

DIMENSliA! A(13) ,X(3) ,T(3,3) 

CALL GRAB(A,X,T) 

INPUT 

A - Mass or stiffness local coordinate neitrix. 

X - Global coordinates of point 

O UTPUT 

T - Transformation matrix V (local) - TV (global) 

None 

None 


PJSRTRAN 


For rectangular systems the coordinate trans- 
formation is constant and that at the origin is 
used. For cylindrical and spherical systems the 
coordinate system at the point is chosen to be 
right handed with the x axis along the local R 
axis and y and z axes tangential to constant 
local coordinate lines. Thus the mapping from a 
i-oint to the coordinate system is continuous except 
for the poles of the spherical system where arbi- 
trarily the y axis is the local x at the north 
pole and the local -x at the south pole. 
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ROUTINE: 


HERMINT 


AUTHOR; 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 

SUBROUTINES; 

LANGUAGE: 


M. C. Redman 
January 1t»73 

Perform Hermite interpolation tor F(X), X1<X<X2, 
oiven F (XI) ,F(X2) ,DF (XI) /DX, and DF(X2)/nX, 
tor N modes 


DIMENS10N FX (NR1,N) ,FX1 (NR2,N) ,DFX1 (NR2.N) , 

1 FX2(NR2,N) ,DFX2(NR2,N) 

CALL HERM1NT(X,FX,NR1,X1,FX1,DFX1,X2,FX2,DFX2,NR2,N) 

INPUT 


X 


KR1 
XI, X2 
FX1 

FX2 


DFX1 

DFX2 

SR2 

N 


Values for which interpolated results 
are desired 

Row dimension of FX array 

Independent variable values bracketing X. 
The dependent variable array corresponding 
to XI 

The dependent variable array corresponding 
to X2 

The array oi slopes at XI 
The array of slopes at X2 
Row dimension of FX1,FX2,DFX1, and DFX2 
Ihe number of coluicns in FX1,FX2, DFX1, 
0FX2, and FX 


OUTPUT 

FX - The interpolated results at X for N 
columns 

None 


None 

FORTRAN 
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OlbCUSSluN: 


1 sxibrout^ne cc\Iculaties the function 


t-X(l) 

Where 


- C1*(C2*C3*DFX1 (I)-» C2»C«I*FX1 (I) 
-C5*C6*DFX2(1) ♦ C5*C7«FX2(I)) 

Cl = 1 

(X2-X1) 3 

Cz = (X2-X)» 

C3 - {X-X1)*(X2-X1) 

C4 - 2*(X-X1) ♦ (X2-X1) 

C5 = (X-X1)* 

C6 - (X2-X) ♦ (X2-X1) 

C7 = 2* (X2-X) ♦ (X2-X1) 
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ROUTINE: 

AUTHOR: 

DAIE: 

PUKiOSE: 

USAGE: 

PARAMETERS: 


CoWlOK: 
SUBROUTINES : 
LANGUAGE. 


IDCHECK 
F. P. Giay 
September 1972 

Check element dat.o tor dt^licated user labels and 
print di;^licates tound. 

CALL IDCHECK (MrIJ«0,lWARN) 

INPUT 

MELN(f - Element nodal matzxx (KM£LNJ3,MN£LN0) 
OUTPUT 

INARN - 0 no duplicate labels found 

1 duplicate labels exist 

None 

SHIFT 

FORTRAN 
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ROUTINE: 


IFIND 


AUIHOR: 

OAIE: 

PURPOSE: 

USAGE: 


COhMON: 

SUBROUTINES: 


W. J. Erickson 
October 1975 

To determine whether a manber is contained in an 
array . 

DIMENSION A(N) 

1=IFIND(A,AI,N) 

INPUT 

A - Array in which to search 

hi - Nundber being sought. 

N - Ntnnber of %«ords in A to search 

OUTPUT 

1 - Result 

=0 AI not present in A 
= 1 AI is equal to A (I) 

None 

None 


LANGUAGE: 


C^JMPASS 


ROUTINE: 


INCBCD 


AUmOK: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 
SUbl^OUTINES: 
LAI'iGUAGE : 


C. A. Felippa and L. J. Schmid 
December 1 96 y 

To increment the numerical portion of a left- 
adjusted BCD item of the form, AAAXXXJrpPF, where 
A.. A is a non-numeric portion, X...X is the 
numeric portion ana F..F is right fill of the 
word. The first two portions must be present. 
X...X may contain only characters 0,1,. ..,9. 

C^m?N/LRCJ2»lIVNI NT , N0UT , N0UR , CCC ( 2) 

A = INCBCD O»LDBCD,lNC,J8LDN^,NEWN0C,L0p»P, KERR) 


INPUT 


fJLD 


BCD item to be incremented 

INC 

- 

Integer increment 

0LDNJ3C 

‘ 

Number of ctiaracters in 0LDBCD, excluding 
right fill of word 

NINT 


See 

N0UT 

- 

aes cription 

n;A)r 

- 

in 

CCC 

— 

L0DAREC 

INPUT/OOTPUT 


I00P(in) 


If L^P - 0, decoding of numeric 
jxjrtion of 0LDBCD is skipped 
(can be used when INCBCD is called 
ill a loop to recursively increment 
a BCD item) . 

L0JJP(OUt) 


L0pP = 1 unless an error condition 
has occurred. 

KERR 


See description in L^AREC 

0 U T P U 

-I 


A 

- 

Incremented BCD item 

NEWNpC 

- 

Number of characters in A 


Cj2MMiiJN/LRCjrfMM/NlNT, NpjUT, Nj^UR, CCC (2) 

GETT,STRMJ?V 

FJ^JRTKAN 
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ROUTINE 


INCR 


» 

r 

AUIHOR: 

DATE: 

„ PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


4> 


W. J. Erickson 
August 1974 

To increment the specified numeric portion of a 
7 character record name 

N = INCR (INDEX, ILCB,IRCB,1DEL) 

INPUT 

INDEX - Record name to be incremented 
ILCB - Leftmost character position of numeric 
portion 

IKCB - Rightmost character position of 
numeric portion 
IDEL - Size of increment 

OUTPUT 

N - Incremented record name 

None 

None 

P0R*I5tAN 

ILCB.IRCB restricted to 2<ILCB<IRCB<7 
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ROUTINE: 


INCRB 


AUTHOR: 
DATE : 
PURPOSE: 

USAGE : 


COMMON : 
SUBROUTINES: 
LANGUAGE : 
DISCUSSION: 


H. Hans teen 
August 1973 

To increment a iixed point number which occupies 
bit positions b through 17 of a word. The routine 
was specifically designed to modify the record 
number field of an ATTaAS riindom index. 

IB = INCRB (IA,1DEL,IRR) 

INPUT 

lA - Index name to be modified 

IDEL - The positive or negative index modifier 

OUTPUT 

IB - The modified rndex name 
IRR - Error flag 

= 0 - standard return 
= 2 - increment value exceeds range of 
numeric field ( | IDEL | >4096) 

= 3 - incremented index exceeds range 
of numeric field (>4096) 

None 

None 

FORTRAN 

Tne position of the numeric field is set 
internally in the routine to allow future 
rederinition of the ATLAS random index format. 

11 an error condition is encountered the output 
variable remnins unchanged. No error messages 
are printed. 
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ROUTINE: 


ISU6 


AUTHOR: Heurold Hansteen 

DATE: July 1975 

USAGE: J ISUB(SUB,N) 

l 

PARAMETERS: INPUT 

SUB - Element; or nodal subset, matrix 
N - Internal element or node ntmber 
OUTPUT 

J “ 0 N is not in the stibset 

1 N is in the subset 

COMMON: None 

SUBROUTINES: SHIFT 

LANGUAGE: F0RTRAN 
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ROUTINE: 

AUTHOR; 

DAIE: 

PURPOSE: 

USAGE: 

PARAMETERS : 


ITEMLST 

Shared H. Gadre 
September 1975 

Load values into the ATLAS data directory matrix. 
CALL ITEMLST (MAT) 

OUTPUT 

MAT - h 2-column matri . with the data directory 
packed in it. The nximber of rows is 
currently 405. 


COMMO’-I : None 

SUBROUTINES: None 

LANGUAGE : FORTRAN 
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ROUTINE: 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 
SUBROUTINES: 


JACpBI 

R. L. Drexsbach 
Febjniary 197i| 

Compute eigenvalues and/or eigenvectors of a real 
symmetric matrix via the threshold Jacobi 
diagonalization methrj. Optionally, each 
eigenvector may be normalized relative to the 
largest element in the vector; the mcignitude 
of the largest element in each of the resulting 
vectors is ±1.0. 

DIMENSION i^(N,N) ,B(N,N) 

CALL JAC0B1{A,B,N,JW*TV) 

INPUT 

A - Matrix for which an eigensolution is to 
be performed. This matrix is destroyed 
during con^utat icxi . Resultant eigenvalues 
are generated in the diagonal of this 
matrix. 

N - Order of natrices A and B 

0PTV - Eigenvalue/eigenvector con^jutation 
options . 

1 - Compute eigenvalues only 

2 - Compute eigenvalues and eigenvectors 

3 - Compute eigenvalues and normalized 

eigenvectors 

OUTPUT 

A - Resultant eigenvalues stored on diagonal . 

B - Resultant matrix of eigenvectores stored 
columnwise in sequence coixesponding to 
eigenvalues . 

None 

None 


LANGUAGE 


FjaRTRAN 



DISCUSSION : 




It an ofl-diagonal element of A is greater than 
the threshold, it is anniiiilated via a plane 
rotation transformation. This process is continued 
<mtil each off-diagonal element is less than a 
final norm defined as follows: 

RN0RMI - off-diagonal norm. Initially, this is 
the square root of the sum of squared 
off-diagonal elen»nts of A. 

FN - Final norm equal to (FN0RMl*1O-*/N) 

TKRLSH - Threshold defined as (RNpRMI/N^) . If 
after a conplete sweep, THRESH is 
greater than FN, THRESH is re-set to 
(THRESH/N3) and another sweep is 
performed. 

The resulting matrix is the diagonal matrix of 
eigenvalues D. B is the multiple product of 
orthogonal matrices which result in the following 
relationshi'* s : 

B(T) ♦A*B=D 
A*B=B*D 
A=B*D*B (T) 

Thus, A- (T) 

Reference: A. Ralston, A First Course in 

Numerical Analysis , McGraw-Hill 
Book Co., 1965. 
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ROUTINE 


KSFRE0R 


AUTHOR: 

DA7E : 

PURPOSE: 

U<^AGE: 

PARAMETERS : 


COMMON: 

SUHROUTINES: 

LANGUAGE: 

DISCUSSION: 


K. Ydoi 
October 1974 

To reorder KSF mdtr:»ces. 

DIMENSIJZW CPRR(N) ,P0S(2) 

CALL KSFRE0R (INFILE, ININDEX, 0UTFIL: ,J3UTIND,C0RR, 
N,P0S,IRR) 


The tile nurae of the input KSF 
matrices 

The index name of the first input 
matrix 

The correspondence table which holds 
the new order for the KSF matrices. 

J in row I means the new Jth element 
is the old Ith element . 

The number of elements to be reordered. 
An array in wiii ch P)3S (1) and P0S (2) 
each contain available position 
references for use by KSFRE$»R. 

OUTPU 1 


INPUT 
INFILE - 
ININDEX - 
C0RR 

N 

PJiJS 


(^UTriLE - The file name of the reordered 
KSF matrices . 

(3UTIND - The index name for the first 
reordered KSF matrix. 

IRR - Error flag 

=0 - standard ret’urn 

=1 - SNARK error encountered 

None 

ELEP1CK,ELEPUT 

F(3RTRAN 

It is not advisable to use the same file and 
index names for the input and output matrices. 

This routine is coded using the SNARK language 
for matrix manipulation. 


ROUTINE 


LINLmT 


AUTfiOR: 

W. J. Erickson 

DATE: 

June 1976 

PURPOSE: 

To make line limit exceeded a non-fatal error 

USAGE: 

CALL LJNLMT 

PARA>iETEKS: 

None 

COMRON: 

None 

SUbROUTINES: 

SYSTEMC 

LANGUAGE: 

PJ3RTKAN 
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ROUXINt: 

AU*n:ORS: 

DATh: 


L0DAREC 

C. A. Felippa 
L. J. Schmid 

November 1970 


PUlvPOSE: To read and decode one free field data record 

(for data record conventions see 
sec. 100, ref. 1-1) 

USAGE: CJZ»««JN/CAKDS/kEC (250) ,ID(250) ,KRECS,KCDS, ITEMS, 

1 KERR(3),JBL 

q»lMJW/IJ(CJ»WNINT,K(?UT, I^R,CXX: (2) 

DIMENSlp^N IR£C(250) 

EQUIVALENCE (R£C, IREC) 

CALL LiTCAREC 


COMMON: qaMf^/CARDS/REC (250) ,ID (250) ,KRECS,KCDS,ITEMS, 

1 K£RR(3),JBL 

C:0MMJW/LRCJi!MM/NINT,Nj^UT, N|3UR,CCC (2) 


FARAMLTEKS: INPUT 


JBL 

NINT 

NpOT 

HfiVR 


a) If JBL=0, alphanumeric it«ns are 
stored left-adjusted with zero fill, 

b) If JBL= (blank), alphanumeric items 
are stored left-adjusted with blank 
fill. 

Default value for JBL is blank. 

File name/number of the card input file 
from which L0QAREC reads data records 
Default is NINT=5. 

File ncune/humber of a coded output file 
onto which L0DAREC writes the image of 
the data input cards. Default is N0UT=6. 
If N0Ur=O the data records are not 
written (useful for teletype work) 

File name/number of a coded output 
file onto which error diagnostics 
are written. Default is N0UR-6. 


INPUT/OUTPUT 

KRECS - The data record counter- Empty records 
(comments only) are not counted. 
Generated records are counted. 

KCDS * The data card counter 


1 

Jr 


I 
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ITEMS 


SUBROUTINES: 

LANGUAGE: 


- Coimt.er ot decoded data items loaded 
in REC 

REC - Vector into vhich LITOAREC loads decoded 
card data. On input REC should C'ontain 
the prevxously decoded record. Upon 
return REC contains the new items. 

L0DAREC sets REC (1TEMS-»1) . .REC (250) 
to zero. 

ID - Vector into w)iich LpDAREC loads 

identitication tor each data item. 

If data item is; 

=5HF1XED - fixed point niimber 
= 8HFL)4ATIN6 - floating point number 
=K - alpharuaneric string, 

where N is the number of characters 
in the string. It N> 10, ID* 10. 

LJIDAREC sets ID(ITEMS-H) . ..ID(250) to zero. 
CCC - Array used for internal communication 

between L)ODAREC and routines DEQ9DIR and 
INCBCD. 


OUTPUT 

KERR(1) - Count of numbei or items in the current 

record which caused fatal error 78, illegal 
data in field, on decoding. 

KERR (2) - Count of all other errors detected by 
L0DAREC 

KERR (3) - Set to 1 whenever ratal error 7fl 
occurs 

DEC0DIR ,L0CF ,GETT ,STRM0V ,INCBCD ,CHKE0R 

P^TRAN 
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HOirriNL; 


MAATTCH 


AUTHOR: 

DATh: 

PUKPOtJE: 

U^Aiit: 

PAKAKETEkS : 


M. C. Redman 
January 1^73 

Given, tlie del inition ot a motion axis; For an 
arbitrary point, determine the associated motion 
axis reterence point, the distance from the point 
to the reference point, and the arc lenoth alone 
tlie motron axis to the reterence point. 

DliMENSll»! XMA(NMAt»P) ,YMA(NMADP) , DYDXKL (NMADP) , 

1 5HA (NMADP) ,CMA (NSEG , 4) , XMAP (NSEG) , 

1 YMAP (NSEb) 

CALL MAATTCH (X,Y,XMA,YMA,DYDXKL,SKA, NMADP, NSEG, 

1 CMA,XMAP,YMAP,XR,DR,SR,THETARL, 

INPUT 


X 

Y 

XMA 

YMA 

DYDXRL 

S^IA 

NMADP 

NSFG 

CKA 

XMAP 

YK/vP 


x-coordinate ot arbitrary point 
y-coordinate ot arbitrary point 
x-coordir»ates of motion axis definition 
ixiints 

y-coordinates ot motion axis definition 
points 

dy/dx ot retezence lines throuqti each 
motion axis detinition point 
Arc length along motion axis to 
definition point 

Numbei ot motion axis definiticMi p’oints 
Number of motion axis segments (=NMADP-1) 
Cubic coefficients in Y defining the 
motion axis on each segment 
x-coordinate of mapping point for a motion 
axis segment 

y-coordinate ot ma./ping point for a motion 
axis segment 

(Note - XMAP (1 ), YMAP (1) is the 
zntei section ot the reterence line 
through XMA(l) ,YMA(1) defined by 
DYDXkL (1) and the reterence line 
tor I*'') 



O U T P U T 


COMHUN : 
SUBKOUTINES: 
LANGUAGE: 
DISCUSSION: 


XR 

YR 

LR 

SR 

THETARL - 


None 

REFPT,AKCL 

F!^TRAN 

The motion axis segment associated with (X,Y) is 
determined. The segment is the first for which the 
distance from the reference line at the outboard 
definition point to (X,Y) is negative. 'Uie cubic 
coefficients for the segment are accessed, or 
calculated it the attachment will be inboard of the 
first or outboard of the last definition point. In 
the latter cases a linear extension of the motion 
axis definition at the definition point is made. 
Routine REFPT is called to determine (XR,YR) , 
routine ARCL is called to determine SR, and DR and 
THETARL are calculated within MAATCH. 


X -coordinate of reference point on 
motion axis 

y -coordinate of reference point on 
motion axis 

Distance from (X,Y) to (AR,YR) 

Arc length along motion axis to (XR,YR) 
Angular difference between the reference 
line and free stream 
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KuirriNE: 
AUIHOR: 
UnTt : 
PURPOSE: 


US/\GE: 
PARAMETERS : 


CWMON: 


SUEROUTINES: 

LANGUAGE: 


*- 


MAMULT 


L. C. Carpenter 
December 1973 

I'erlorni one of tne following matrix products: 

1. C = C+AB 

2. C - C-AB 

3. C = AB 

4. C = -AB 

dl':ensij» C(k,n) ,a(m,p) ,b(P,n) 

C0KM0N /MACJ^yiD ,K, N ,P , CW2WSP , AKJJWSP , BR0WSP , CCJ2ILSP , 
1 ACja»LSP,BCJ9LSP 

CALL MAMULT (C, A, B) 

INPUT 


A,B - Factor matrices 

OUTPUT 

C - Restjlt matrix 

qpMMpK/MACjaM/ID, M ,N , P, CRjaWSP , AR0MSP , BR0WSP , CC^LSP , 
1 AC0LSP,BCJ«LSP 

variables : 


ID 

M 

N 

P 


1,2, 3, 4 selects option above 
Number of rows in C and A 
Number of columns in C and E 
Number of columns in A and rows in B 


CR0WSP - 

Skip factors 

for locating next row/column 

ARJ2WSP 

where 



BRtafWSP 

XR0WSP = 

Number 

of elements to skip to 

CCJJLSP 

AC)2tt.SP 

and 

aet to 

a new row in matrix X, 

BO#LSP 

None 

CJ3MPASS 

XC^SP = 

Number 
get to 

of elements to skip to 
a new column in matrix X. 
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DISCUSSICW; 


MAKULT is optioiized for outer products, %diere P is 
small and N is large and M is between. 

TLME = 2.3*M*N»P ♦ K ♦ 50 Microseconds 
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ROUTINE: 


M/iSKlT 


AUTHOR: 

DATi.: 

PURPOSE: 

USAGE: 

PARAMETERS: 


SUBROUTINES: 
Common : 
LANGUAGE : 


L. J. Schmid 
Leceniber 1969 

To convert, a lett adjusted, blank filled portion of 
a word to zero fill. 

N = MASKIT (NAMEIN) 

INPUT 

NAMEIN - The word with riyht aa justed blank fill 
OUTPUT 

N - The same word with right adjusted zero 

till 

SHIFT 

None 

FORTRAN 
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ROUTINE: 


MATAINT 


AUlUOR: S. Wahls troin 

DATE; October 1970 

PURPOSE: Ccilculate interpolated standard material properties 

tor a given temperature 

USAGE: I = MATAINT (ITEMP,PRJJPMAT,NR0WS,IFIRST,ILAST,RESULT) 

PARAMETERS: INPUT 

ITEMP - Temperature tor which properties are 
desired 

PK0PMAT - Matrix of material properties 
NR0WS ~ Number ot temperatures (row dimension) 
in PR0PMAT 

IFIRST - First property desired 
ILAST - Last property desired 


OUTPUT 

RESULT - Vector of interpolated properties, at 
least (1IAST-IFIRST-* 1) elements long 
I - Error flag 

=0, Normal return 
= 1 , Temperature out of range 
=2, IF1RST>1LAST 

COMMON: None 

SUBkOUTINLS: None 

LANGUAGE : P(3RTRAN 

DISCUSSION: No extrapolation is allowed 
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ROUTINE: 


MATCINT 


AUTHOR: 
DATE: 
PURPOSE : 

USAGE : 
PARAMETERS: 


COMMON: 
SUBROUTINES : 
LANGUAGE : 
DISCUSSION : 


J. M. Held 


April 1975 

Calculate interpolated composite material 
properties tor a given ttauperature 

1 = MATCINT (TEMP , CMAT, MC0DE, NFIRST, NLIST, RESULT) 


INPUT 


T 

CMAT 

MC(^DE 

NPIRST 

NLAST 


Ten^-erature tor which properties are 
desired 

Composite material matrix 
Material code for current material 
First property desrred 
Last property desired 


OUTPUT 

RESULT - Vector of interpolated properties 
1 - >0, Thickness of lamina ♦ 1000 

-1, NFIRST>NLAST or 
NFIRST<1 or 
NLAST> allowable 
- 3 , Temperature out of reinge 
-4, MCJ?DE not present in CMAT 

None 

None 

Fortran 

No extrapolation rs allowed 
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ROUTINE 


iXATEXP 


AUTHOR: 

DATE; 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 
SUBROUTINE: 
LANGUAGE: 
DISCUSSION: 


L. J. Schmid 
Deceniber 1969 

To rewrite a matrix within a given storage area so 
it will conform with new dimensions to be allocated 
to it. 

CALL MATEXP(MAT1,MR1,MC,MAT2,MR2) 

INPUT 

MAT1 - The old matrix 

MRI - Row dimension of MAT1 

MC - Column dimension of MATI and MAT2 

MR2 - Row dimension of MAT2 

OUTPUT 

MAT2 - The compressed/expanded version of MATI 

None 

None 

FORTRAN 

If MR2 < MRI it is assumed that MATI contains 
(MR1-MR2+1) zero rows at the lower end of the matrix. 
MAT2 is then formed by deleting these rows. 

If MR2 > MRI, MAT2 is formed by adding MR2-MR1+1 
zero rows to the existing rows of MATI. 



ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS : 


COMMON : 


tm'Axgt 

M. C. Redman 


January 1973 

Given an interpolation coefficient array for a 
motion axis system generated in routine M0TAX1, 
calculate modal displacements and slopes at a set 
of output points. 

DIMENSIjaW X (NPTS) (NPTS) ,Z (NR0W2 .NMJJDES) ,SA (NVARY) , 

1 DZ 1 (NRpWZ ,NM^ES) , DZ2 (NRi7WZ,NM0DES) 

CALL (X,Y,NPTS,Z ,NR0WZ,NC^1,NC^S,SA,INDD, 

1 DZ1,D22) 


INPUT 


NPTS 

Number of output points 

X,Y 

Coordinates of output points 

NR^Z 

Row dimension of ZfDZl,DZ2 

NCpLi 

First input column to be used 

NCJ3LS 

Number of columns to be used - if NCpLS=0, 
all coltmns >NC^1 will be used 

SA 

Interpolation coefficient array 

INDD 

Deri\’atxve option indicator, 

=0, no derivatives, DZ1,DZ2 not required 
=1, DZl-DZ/DX, DZ2 not required 
=2, D2l=DZ/DY, DZ2 not required 
=3, D21=DZ/nX, DZ2=D2/DY 


O 0 T PUT 


Z 

NC0LS 

D21,DZ2 

INDD 


Modal displacements at output points 
Number of columns returned 
Derivatives as indicated by IKDD above 
Error return 
>0, No error 


= lOH*M0I7Ot0 
=1OH*M0TAX0 

= lOH’WJJTAXja 

= 1OH*MJ?TAX0 


1, SA has wrong format 

2, illegal nusrJaer of 
columns retjuested 

3, illegal nujnber of 
output poi.its, NPTS<0 

4, illeqal row dimension 
for Z, NR0WZ<NPTS 


None 


SUBROUTINES: 


ZER0C0L ,MAATTCH , KERMIKT 



LANGUAGE: 


ir'pKTRAN 


DISCUSSION: 


For each point specitied, the routine: 

1. Calls MAATTCH, which determines motion axis 
reference point, arc length along motion axis 
to reference point, and angle from reference 
line to free stream. 

2. Determines associated motion station segment 
of motion axis. 

3. Calc\ilates displacements and rotations at 
reference point for all modes*. 

a. If reference point arc length is not within 
(S(1),S(NMS)) - use linear extrapolation for 
displacements and endpoint S (1) or 5 (I^S) 
values for rotations. 

b. If reference point arc length is within 
(S(l) ,S(MNS) ) - call HERMINT for Hermite 
in terpola tion . 

4. Generates displacement and (optionally) slopes 
at the output points. 

NM^DES, used in the DIMENSIjaN statement is given by: 
NM0DES > NC(2»LS-NCPL1+1 
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ROUTINE: 

AuraoR: 

DATE; 

PURPOSE: 

USAGE: 
PARAMETERS : 


MffTrT0 
M. C. Redman 
January 1973 

Given an interpolation coefficient array generated 
in Mj^PTl associated with the motion of a rigid 
body datum, calculate the displacements at a 
set of output points. 

DIMENSIPN X (MPTS) ,Y (MPTS) ,2 (MPTS) ,DEL2 (NR(2W2,NM0DES) , 
1 SA (N VARY ) ,GAMMA (MPTS ) , DZ 1 (NR0WZ , NI^ES) , 

1 DZ2 (NR0WZ ,NM(7D£S) 

CALL MJZPTPTp (X , Y, Z ,KPTS , DEL ' , NRfWZ , NC0L 1 , NC0LS , SA , 

INDG, GAMI’JV, INDD ,DZ 1 , D22) 


INPUT 


X,Y,Z 
ABS (MPTS) 

NR0WZ 

NCP»L1 

NqZTLS 

SA 

IMDG 


GAMMA 


INDD 


Coordinates of output points. 

Nvimber of oirtp t points. If MPTS<0, 

Z is assvmied to be zero for all points. 

Row dimension of DELZ, DZ1, DZ2 

First input column to be used 

Nimber of columns to be used. If NC0LS<O, 

all coxumns >NCJ*^ 1 will be used 

Interpolation c< ficient array 

I:.dicator for orxentation of noma'' 

displacenent 

=0, same as global Z, no GAMMA used 
=1, angle GAMMA (1) applies to all points 
~2, angle GAMMA (I) applies to point 1 
Angular orientation (radians positive in 
positive X sense) of normal displac' ments , 
as indicated by INDG 

Derivative cation indicator 

=0, no derivatives, DZI and DZ2 not required 
=1, DZ1=D2/DX, D22 not required 
=2, DZ1=DZ/DY, DZ2 not required 
-3, DZ1=DZ/DX, DZ2=D2/DY 
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COMMON ; 


O 1) T P U T 


DEL 2 
NC0LS 
DZ i,DZ2 
INCD 


Normal displ-icemeuts at output points 
Number oi colunns returned 
Derivatives as specified by INDD 
Error indicator, 

>0 - No error 

= 1Oh*M0TPT0 1, SA has va:ong format 
= 1OH*M0TPT0 2, illegal number of output 
points, M?TS=0 

= 3, illegal row dimension 

for DEL2, (NRJiW2<ABS (MPTS) ) 

= 1Oxl*M{3TPT0 4, illegal number of 
columns requested 


None 


SUBROUTINE: ZER^C^ 

LANGUAGE: FORTRAN 


DISCUSSION: For each output point specified, the routine 

generates displacements and (optionally) slopes by 
a rigid tranr.-.orma_ion of the motion of a drtum. 

NMJ3DES, used in the DIMENSION statement is given 
by: 


% 


m>xiXJ^S > NQ2fL-NCiptt.l + 1 


J« 
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ROUTINE: 

AUHiOR: 

DATE: 


K0VKj9W 

L. J. Schmid 
December 1969 


PURPOSE: To copy a submatrix of a matxix in'to another matrix. 

USAGE : DIMENS10N MAT1 (MRS 1,1), MAT2 (MRS2 , 1 ) 

CALL HfHVKiM (MAT1,MRS1 ,MAT2,MRS2 ,1 1 ,J1 , 12, J2,LRS,LCS) 

PARAMETERS : INPUT 


MAT1 

KRSI 

MRS2 

11 

J1 

12 

J2 

LHS 

LCS 


Source matrix 
Row size of MATI 
Row size of KAT2 

Row location 1NMAT1 of first element to 
be moved 

Column location in MATI of first element 
tc be moved 

Row location in MAT2 of first element of 
submatrix 

Column location in MAT2 of the first element 
of submatrix 

Number of rows to be moved 
Number of columns to be moved 


OUTPUT 

MAT2 - Result matrix 


COMMON: bone 


SUBROUTINE: None 

LANGUAGE: P|2JRTRAN 

DISCUSSION: The appropriate elements are copied from MATI to 

MAT2 using a doiible do loop. 


I 

i 

t 


I 


Y 
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KOUTINL: 


y43VSTG 


AUlMOk: O. L. Anderson 

DATE: May 19o9 

i’UhPOSL: Move the contents ot a block ot core to a new 

location - 

UiJAoL: CALL M0V:;TG (Tj^, FIRST, LAST) 

PAKAXETEkS : I NPUT 

TV - New locacion ot tirst word ot block 
FlKST - First word of block 
LAST - Last word ot block 

Coition : None 

SUHF;OUTIKLS: None 

LANG UAL c. : C(?^IPASS 

DISCUSSION: TbiS routine is tl»e same as Wyr-ISTG, part of the 

SN7 JUC package. 

kjstrxction: FIRST < LAST 


100 i .bo 





I 


ROUTINE: 

NEITS 1 

ENTRY: 

NB1TS1,NB1T1 

AUTHCA: 

0. L. Anderson 

DAli;: 

May 19v'> 

PURPOSE: 

iJitry NbITSi - To count the ruiuber of 1 bits of a 
partial woord. 

Entry NblTl - To count all 1 bits of a word. 

USAGE : 

K=NBITS1 (WjflRD,I,J) 
N^NBITI (WI9RD) 

PARAMETERS: 

INPUT 


VI0RD - Word in which 1 bits are counted. 
1 - bit to start counting (S59) 

J - Bit to stop counting (IiJ>0) 


OUTPUT 


N - Number of 1 bits in specified portion of 

word 

C(rmM|3N: 

None 

SUBROUTINES: 

None 

ETJJGUAGE: 

CJ»1PASS 

DISCUSSION: 

It 59>1>J>0 is not satisfied, all 1 bits are 
counted. 


i 

i 

^ » 
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ROUTINE: 
ENTRY : 
AUTHOR: 
DATE: 
PURPOSE: 

USAUE : 
PARAMETERS : 


COMMON : 
SURKC’JTIKES: 
LANoUAGL: 
L.1:*>CUSS1UN: 


NCUIR 

NCUIR,NCIUR 
G. von Limbc.rh 
Kay 1973 

NCUIR - Obtain the row in the no.’al data table and 
the internal node number, given the user 
number 

NClUR - Obtain row and user number, given internal 
number 

D1MENSIJ»J NCT( ) 

CALL NCUIR (NCT,NUSER,N1NT,IR0W) 

C?iLL NC1UK(NCT,NINT,NUSER,1R(JW) 

INPUT 

NOT - Nodal corresi>ondence table 

INPUT/OUTPUT 

NUSER - Ust-r node number 

NINT - Internal node i.umbez 

OUTPUT 

IK0W - Row ^'oiiiter to nodal data tadsle 


None 


None 

CWPASS 

It NUSER is not detineu. NiNT and IR0W are set to 
zero . 
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- I ROUTINE: N0DPRNT 

^ AUTHOR: L. J. Schmid 

t. * 

DATE: December 1969 

I 

f PURPOSE: Print, the nodal data matrix ^ 

USAl^E: D1M^S10N XX (MR.MC) ,NCT(NCTR) I 

CALL N(»DPRNT(XX,MR,MC,NCT,NCTR) 

PARAMETERS : INPUT 

^ XX - Tlie nodal data matrix 

MR - Row dimension ot XX 

MC - Column dimension cf XX 

NCT - The nodal correspondence t^Ut)le 

NCTR - Row dimension of NCT 

* COfVlON : None 

SUBROUTINES: SHIFT 

LANGUAGE: FORTRAN 
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KOirriNE: 


JW>TF^R 



AUTHOR: S, Wahl Strom 

DATE: September 1970 

PUKl*OSE: Compute the optimisa tormat for a given field 

widtli and number 

U:>AGE: CALL 0PTF^R (A,W»F) 

PARAMETERS : INPUT 

A - Some real number 
W - Field width (integer number) 

OUTPUT 

F - Format as a Hollerith constant 
COMMON: None 

SUBROUTINES: ABS 

LANGUAGE: FORTRAN 

DISCUSS. ON: JJPTF0R can be used when setting up a variable 

format in an array. F has the format for printing 
A using W columns. Hie last c^laracter in F is a 
comma. 
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KOUTINE: 


PIATE0 


t 


t 


■s ^ 


AU1HOR: 


M. C. Rednian 


DATE: January 1973 

PURPOSE: Given the spline coetficients tea: a set of 

functions as determined in routine PLATEI, and the 
associated input points, calculate the values of 
the functions and their derivatives at a set of 
output points. 

USAGE: DIMENSUW X(?(NJJPTS) ,Yp(NjaPTS) ,2f9(NRjaWZ,NM0DES) , 

1 SA(NVARY) ,DZ1 (NRi9WZ,NM(9D£S) ,DZ2 (NR(WZ ,NM0DES) 

QiLL PLATEJ# (X0,Y0,N0PTS,ZJ?,NRpWZ,NCJ8Ll,NQM.S, 

1 SA,IND0,DZ1,DZ2) 


PARAMETERS : INPUT 


comoN: 


N0PTS 

XP,YI? 

NR(9WZ 

NC0L1 

KqSLS 

INDD 


Number of output points 

Coordinates ot output points 

Row dimension of Z0.DZ1,DZ2 

First input column to be used 

Number of coluims 

=0 - all columns > NC0L1 

Spliiie coetficient array as generated 

in PLATEI 

Derivative option indicator 

=0, no derivatives, 0Z1,DZ2 not required 

=1, LZ1=DZ/DX, DZ2 not required 

=2, DZ1=DZ/DY, D22 not required 

=3, DZ1=DZ/DX, DZ2=DZ/DY 


OUTPUT 


20 

NQZTLS 

1NDD<0 


DZ1 


D22 


Interpolated function values 
Number of columns returned 
Error condition 

1OK*PLATE0 1 = spline scratch array has 
wrong format 

1OH*PLATE0 2 = illegal number of columns 
requested 

Not produced it 1N'^D=0 

D2/DX if 1NDD=1 or 3 

DZ/DY if INDD=2 

Not produced it lNDb=0,l or 2 

DX/DY if 1NDD=3 


None 


SUBROUTINES: ZEK0C0L, VIP 


I > 
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LANGUAGE: 


F^IRTRAN 


DISCUSSION: 


NM0OES, tised in i:he DIMENSION statement is given 
by: 

NMJJDES > KC0LS-NC0L1-»1 
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ROirriNE; 


PfOLY0 


AUTHOR: 

DATE: 

PURPOSE: 


PARAMETERS: 


COMMON: 

SUBROUTINES: 

LANGUAGE: 


M. Y. Hirayaina 
August. 1973 

To obtain displacements and slopes from 
coefficients of a polynomial with independent X and 
Y variables and a maxinnun order of 5. 


DIMENSION X (NPTS) ,Y (NPTS) , Z (NRJWZ ,NMj»DES) , 

1 DZ 1 (NR0WZ , NI^ES) ,0Z2 (NRjZMZ ,NM^£S) , A (NVARY) 

CALL PJ2»LY0(X,Y,NPTS,Z,NR0WZ,NC0Ll,NCj3LN,A,INDD,DZ1,DZ2) 

INPUT 


X 

Y 

NPTS 

NR0WZ 

NQJL1 


A 

INDD 


x-coordinates (local) of output points 
y- coordinates (local) of output points 
number of output points 
row climension of Z - must be > NPTS 
nuniber of modes 

0, pick up number of modes in 
coefficient array 
Coefficients array 
Indicator tor derivative output 
= 0, no derivatives 
= 1, dZ/dX 
= 2, dZ/dY 

= 3, both dZ/dX and dZ/dY 


OUTPUT 


Z 

DZ1 

DZ2 

INDD 


None 

None 


Matrix of displacements at output points 

Not used if INIX) = 0 or 2 

dZ/dX if INDD = 1 or 3 

Not used if INDD = 0 or 1 

dZ/dY if INDD = 2 or 3 

Error return 

= 0 No error 

= 1OH*PjaLY0 X, where 

X = 1 - Polynomial name incorrect 

2 - Too many modes specified 

3 - NR0WZ < NPTS 

4 - INDD <0 or >3 


F0KTKAN 


tool. 73 



DISCUSSION; 


used in the DIMENSION statemeut is given 

hy: 


NMpJDES > NC0LS-NCJJL1+ 1 







I 


ROUTINE: 

PRNTjaCT 

AUTHOR: 

Unknown 

DATE : 

Unknown 

PURPOSE: 

Print a matrix in octal format with 5 numbers 
per line. 

USAGE: 

CALL PRNT0CT (MAT ,MA'TJ , : ' ATC) 

PARAMETERS : 

INPUT 


MAT - Mdtxix to print 
MATPc - Row dimension 
MATC - Column dimension 


CO^^MON: 

None 

SUEkOUTINES: 

None 

LANGUAGE: 

FORTRAN 
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ROUTINE: 


KEFPT 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 
SUBROUTINE: 
LANGUAGE: 
DISCUSSION : 


M. C. Redman 


January 1973 

Find the intersection ot a given straight line 
and a cubic. 


CALL REFPT (X ,Y ,XM,YM,DYDXRL, YMA 1 , YMA2 ,C0 , C t , C2 , C3 , 
1 XR,YR) 


INPUT 


X 

V 

XM 

YM 


DYDXRL 

YMA1 

YM/v2 

C0,C1,C2,C3 


X -coordinate of arbitrary point 
y-coordinate of arbitrary point 
x-coordinate of mapping point 
y-coordinate of mapping point 
(Note YM = indefinite if (XM,YM) 
undefined) 

dY/dX of reference line if (XM,YM) 
defined 

y-coordinate of inboard motion axis 
definition point 

y-coordinate of outboard motion axis 
definition point 

ctibic coefficients in y defining 
motion axis on (YMA'*,YNA2) 


OUT PUT 


XR - x -coordinate of referfexice point 

YR - y-cocrdinate of reference point 

NOiie 

None 

FORTRAN 


Depending upon the values of C0,C1,C2,C3 the 
solutions to a cubic, qu«idratic, oi linear equation 
are determined. That solution for which YMA1 < YR 
S YMA2 is used. 


CuL^c is: X = C0*Cl*y + C2*y^ ♦ C3*y3 
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ROUl’lNE: 

AUTHOR; 

DhTE: 

PURPOSE: 

IJSAOE: 

PARAMETERS : 


RE0RSUB 

Kandace K. Yagi 
August 1974 

Reorder a subset matrix . 

CALL RE0RSUB (INSUE,.0UTSUB,CJ3RR,N) 

INPUT 

INSUB - Old subset matrix 

C0RR “ Sorting correspondence where CJ9R1<(7>=J 
means that new element J is the same 
as old element I 
N - Number of elemeiits 

OUTPUT 

^JUTSUB - Sorted subset matrix 


COMMON: None 

SUBROUTINES; SHIFT 


LANGUAGE 


F0RTRAN 



ROUTINE; 


SCAMP4 


.’xUTHOK; 

DATE; 

PURPOSE; 

USAGE; 

PARAMETERS: 


COl-WON; 

SUBROUTINES; 

LANGUAGE: 


G. W. Erwin, Jr. 

November 1^62 

P.it a chain of cubic equations through a set of 
points 

DIMENSIJ2N X(N) ,Y(N) ,C(4,K) orC(7,K) Where K>N-1 
CALL SCAMP4 (X, Y ,N ,NDA,NLB,DA,DB,C, S,M) 

INPUT 

X - The array of x-coordinates 

Y - The array of y-coordinates 

N - The nxiniber given points 

NDA - The order (first or second) of the 

derivative at X ( 1) ; input as a 
negative integer if the derivative 
is to be computed by SCAMP4 
NDB ~ The order of the derivative at X (N) 

DA - The value of the dv^rivative at X(1) ; not 

■ ^ed or changed if NDA <0 
DE - The value of the derivative at X (N) , 

M^12 - The cubic coefficients are to be stored 

in a four by (n-1) array 
K=12 - The cubic coefficients are to be stored 
in a singly subscripted array according 
to the (2D) compesite curve format 

OUTPUT 

C - The array of cubic coefficients 

S - The array of derivatives y (i) » at the 

given x(i) 

M - L ror returii 
=0 success 

1<M<7 implies error return frean Q?;iCU 
M large in^lies error retrxn K on Jth 
cubic from CUBIC2 (M=100*J+K) 

=-1 implies K<2 

None 

CJ2MCD,CUBIC2 ,DERIV1 .DERIV2 
FJ3RTRAN 
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ROUTINE: 

SCkfW 

AUTHOR: 

Unkno%m 

DATE; 

UiJcnowri 

PUKPOS: : 

Flint a qracliical display on the output file to 
indicate the status ol execution. 

bc>rvG£. Z 

CALL SCREW 

P. .HAi^-ETERS : 

None 

CO.^UHON: 

None 

SUbKOUTlKES: 

None 

EANGUAGL; 

FjaRTRAK 


♦ 


i 
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KoirriNL: 


AbTriOH; 

DATE: 

lUKPUSt: 

U^:AbE: 

PAi<AMETEKS : 


COMMON : 
;t;uaKOOTiKts: 
UVNOUAGt : 


5KtLL 


u’nknuvm 
May Iy67 

lo reorder an array of nximbers in ascending order. 

DIMENSIJJN X(N),K(K) 

CALL ^•HLLL(X,K,N) 

INPUT 


N - The length of the arrays X and K 
INPUT/OUTPUT 

X - The array whxch is reordered by the 
routine 

C> U T PUT 

K - An integer array of size N. K(I) contains 
the original position of new element X(l) 


None 

None 

FORTRAN 


IOuI.BO 
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KL»in*lNE: 


SHELLX 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 
PARAMETERS : 


COMMON : 
SUEKOUTINES: 


Uitknown 
May 1V67 

To reoroer the elements of an array Y accordina 
to an indeif array K such that Y (K (I) ) is iroved 
to position Y {1 } . 

D1MENSI(»< Y(N) ,K(N) «DUM(N) 

CALL SHiiLX (Y.K,N,DUM) 

INPUT 

K - The index array 

DUM - An array use*.i for intermediate storage 
N - The length of arrays Y, K euid DUM 

INPUT/OUTPUT 

Y - The array which i s reordered by the 
routine 


i>ione 

None 


LANGUAGE: 


FJ3KTRAN 



KoirriNL: 

AUlHOk: 

DmTL: 

PUKPOSi.: 

USAGE: 

PAxnA^IETERS : 


COMMON: 
SUEKOUTINES: 
I-^NGUAGf ; 
DISCUSSION: 


SMASK 

W. J. Erickson 
October 1.J74 

First mask, then shirt every entry in an array. 
CALL SMASK (MAT,MATDIM, 1SH1FT,MASK) 

INPUT 


MAT - Array to be modified 
MATDIM - Array dimension 
ISHIFT - Number of bits to left shift 
MASK - Mask to use prior to shifting 

OUTPUT 

MAT - Array with each word masked and 
shitted 


None 

None 

qaMPAss 

Useful tor extracting packed data from an array. 
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KOirriNES: 


AblUOR: 

DATE; 

PUKi-OSE: 

USAGE: 

COi'JiON; 

SUBHOUTINES: 

lANGUAGE: 

UlSCUSSIOK: 


S0ERC 

S(a£S01 - S)9£S05 
G. von Linuoach 
August 1974 

and its subroutines S0ESU1 tlirough S05SO5, 
a general sort package tor element data, sort 
variable size blocks of data and the ass MJiated 
index table using a correspondence table. 

CJ»«WC/SJ?KTPAK/1 PAR ( 40 ) 

CALL S0LR1> 

qi»lMJ?N/S0RTPAR/lPAK (40) 

IPAH is initialized by die calling program with 
file names, index names, and SHIFT and INCR 
arguments for input and output data. For precise 
current definition of contents of IPAR see comments 
in S01iRO. 

ES0RT1, MpVSTG, INCH, SHIFT, FF.TEDIT 

S)?ERD - SNARK 

SJiJESOI - S0LSO5 - FpRlRAN 

S0ERD clears blank common and adds its own tiles. 
Scratch tiles will be dropped and any files added 
by S/LKD will be deleted, Sortinu ot index tables 
as done by EStJRTi amd blocks of data are moved 
by M(tfVSTc;. The input index table contains packed 
l>lock numbers, row numbers and data size numbers 
in input order. The input data blocks may contain 
data not referenced in the index table. The 
correspondence table is a list of the output 
positions, desigixated in the input order. The 
output will be in increasing order, but need not 
be sequential. 



KOITTINE: 


STAR 


AUTHOR; F. P. Gray 

DATE: June 1972 

PURPOSE: This subroutine interrogates a natrix index name 

and coiints the number of asterisks (*) present. A 
test index and masking index are also formed. 

USAGE: CALL STAR (IW5EX, ITEST, IMSK, ISTAK) 

PARAM'-TERS : INPUT 

INDEX - 7 character index name, left adjusted, 

zero rill 

OUTPU T 

ITLST - 7 character test index, left adjusted, 

zero fill 

IMSK - 7 character test index, left adjusted, 

zero fill 

ISTAR - Count or stars in index 
CuRMON : None 

SUBROUTINE; None 

LANGUAGE : P0RTKAN 

DISCUSSION: The test index is formed by converting the stars (♦) 

in the index name to zeros. 

Ihe maskiny index i.v formed from the octal word 
777777777777770C0000 by replacing the sevens by 
Zeros in the locations corresponding to the stars 
(*) 111 the iixlex name. 
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ROUTINE; 


TRANS 


AUTHORS: 

DATE: 

PURPOSE: 

USAGE: 
PARAMETERS : 


COMMON : 
SUBROUTINES: 
LANGUAGE: 
DISCUSSION: 


S. Andxeassen 
S. Wahlstxom 

January 19b9 

Establish 3X3 orthogonal coordinate transformation 
inatrxx Detween a global and a local cartesian 
rectangular coordinate system. 

D1MENS1(»J T(3,3) ,DX (3) ,DYZ(3) 

CALL TRANS (T,DX,DYZ,M,S) 

INPUT 

DX - Global coordinates of local x axis 
DYZ - Global coordinates of a vector in 
local xy or xz plane 
M - <0 if DYZ in xz plane 

=0 if yz orientation is arbitrary 
>0 it 1>YZ in xy plane 

OUTPUT 

T - Transformation matrix such that 
V (local) = TV (global) 

S - >0 length of DX 

-1 DX is Shorter than 10~*^ 

-2 DYZ is parallel to DX 

None 

None 


E0RTHAN 


First, the x-axis is obtained by normalization of 
DX; then, the normalized cross product ox uX and 
DYZ defines the second axis (either y or z 
depending on M) . Finally the third axis is 
obtained as a cross product of the first two. It 
E=0, the last two rows of T are set to zero. 
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kOJTINt: 


VLCPKJJD 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PAKAT^ETERS : 


COMMON: 
SUBROUTINES: 
L/.NGUAGE : 
DISCUSSION: 


S. Wdhlstrom 
April 1972 

Compute tlie vector (cross) product 

DIMENSION A(2) ,B(3) ,C(3) 

CALL VECPRJ3D (A,B,C,D) 

INPUT 

h - First ^ -iCtor vector 
C - Second tactor vector 

OUTPUT 

A - Result vector - A=(B)X(C) 

D - Length ot A 

Rone 

None 

FORTRAN 

The equations used are: 

A{1) - B(2)C(3) -b(3)C(2) 

A{2) = i3(3)C(1) -B(1)C(3) 

A(3) = B(1)C(2)-B(2)C(1) 

D = SQRT(A(1) 2+A{2) 2*A(J) 2) 
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ROUTINE: 


VTMEI 


AUTHORS; 

DATE : 
PURPOSE: 


USAGE : 
PARAMETERS: 


COMMON: 
SURkOUTINES: 
LANGUAGE : 
DISCUSSION: 


H. Schroeising 
C. Berner 

Axiqust. 1569 

Coinput.e the product vector of either: 

I. A matrix stored by columns, post multiplied by 
a column vector, or 

2 . A matrix stored by rows, pre-multiplied by a 
row vector 

DIMENSIiA) V (L) ,R (M) 

DlMENSIim A(M,K) where R > L for 1. 

DINENSIfW A(K,M) where K > L for 2. 

CAJi VTMEI (V,A,N,L,M,R) 

INPUT 

V Factor vector 
A - Factor matrix 

w - Column to column skip factor for 1. 

Row to row skip tactor for 2. 

L - Dimension of vector 
M - Column dimension of matrix for 1. 

Row dimension of matrix for 2. 

OUTPUT 

R - Result vector 

None 

None 

C^PASS 

Time = 40+4. b (M/2-1) ♦ 1. 8 CM-L) /2- 1) microseconds 
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ROUriNL: 

AUTHORS: 

DAIR: 

PURPOSE; 

USAGE : 
PARAMETERS : 


COMMON : 

SUBkOUTINES: 

L./iNGUAGE: 


\rmvi 

h. Schmeising 
C. berner 


August 1969 

Compute the product vector of either: 


1 . 

A matrix stored by 

rows. 

post multiplied by a 


column vector, or 




2. 

A natrix stored by 

to 

8 

pre -multiplied by 


a row vector 




DIMENS IJ2W V (L) , R (M) 
DIMENSION A(M,K) where 

K > 

L 

for 1. 

DIMENSION A(K,M) where 

K > 

L 

for 2. 

CALL 

VTMVl (V,A,N,L,M,R) 




I N 

PUT 




V - 

Factor vector 




A - 

Factor matrix 





N - Row to row skip factor for 1. 

Column to column skip factor for 2. 

L - Dimension of vtw.-t.or 
M - Row dimension ot matrix for 1. 

Column dimension of matrix tor 2. 

OUTPUT 

R - Result vector 

None 

None 

Cja-lPi^SS 

Time - 40+*4 . 6 (M/2-1) + 1. 8 ( (M-L) /2-1) microseconds 


DISCUSSION: 



I 


t ROUTINE: 

AUIHOR: 
DAIE: 
PURPOSE: 


USAGE: 
PARAMETERS : 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


VTMVIA 

H. Han Steen 
August l*»b9 

Compute the product vector ot either: 

I. A matrix storGd t>y rows, post multiplied by a 
column vector, or 

2. A matrix stored by columns, pre-mult iplied by 
a row vector 

and add xt to the existing contents of the result 
vector . 

D1MENSI0N V (L) ,R (M) 

DIMENSIjaW A(M,K) where K > L for 1. 

DIMENSl^aW A(K,M) where K > L for 2. 

CALL VTMVI(V,A,N,L,M,R) 

I NPUT 

V - Factor vector 
A - Factor matrix 
N - Row to row skip factor for 1 . 

Column to column skip factor for 2. 

L - Dimension of vector 
K - Row dimension of matrix for 1. 

Column dimension of matrix for 2. 

OUTPU T 

R - Result vector 

None 

None 

q»1PASS 

This routine is identical to VTMVl, except for its 
accumulation featc^'e. 
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KOiri’lNE: 


WGKAD 


AUThOR: 

DATE: 

PURPOSE: 

USAGE: 
PARAMETERS : 


C. Movuiier 
October 1975 

To write data r' cords on file GRAFSQ2 (second file 
in coiranon block /F1LE99/) 

CALL WGRAD(KJJD,X,y,Z,IBFR,LK0DE,XL) 

1 N PUT 


KJ2D 


X 

y 

z 


- Input code for data record 

= 1 directs data in current call to be 

written to GRAFSQ2 with more data to 
follow. 

= 3 indicates that this is the last call 
to the routine for the current 
display. 

- Array of X coordinates to be plotted. 

- Array of Y coordinates to be plotted 

- Array of Z coordinates to be plotted . 


IbFR(l) - Curve plotting coae (other than contour 
plots) 


- 1 solid lines 

- 2 points 

= 3 dashed lines (dash length = 0.1 
inch) 

= 4 solid lines and symbol at points 

symbol denoted by value of LBFR (2) 

- 5 dashed lines and symbol at points 

= 6 symbols (at points) 

= 8 dashed lines - length specified by 
the user in 1BFR(4). 

IBFR(2) - Plot symbol code 

= IHA thru IHZ and 1h1 thru 1H9 

results in the specified character 
being plotted as the symbol 

= 1 thru 9 results in the following 9 

symbols t ig plotted, respectively 


V o 

1 2 


□ <3 

5 6 



7 



8 9 
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JEFK(3) 


- Plot symbol code for user-specified boundary 
points on a contour plot only 
= 1 thru 9 results in the above 9 symbols 

being plotted, respectively. 

IBPR(4) - User specified dash length in 0.C1 inch \inits 
(IBFK(k)=10 implies 0.1 inch dash length) 

IBFR(5) - Skip factor for points in the X,Y,2 
arrays . 

= 1 implies all points 

= n implies point NOS. 1, 1+n, 1+2n, ... 

1BFR(7) - Number of trace types (NT) per record 
NT < 10 

1BFR(6) - Number of data points defining first crace 
type (< 200) 

IBFK(?-»-NT) - Number of data points defining 
NT-th trace type. 

IBFR(8+NT) - Number of curves to plot for first trace 
type, each cor i sting of IBFR(8) points. 
1BFR(7+2*NT) - Number of curves to plot for NT-th trace type, 
each consisting of IBFR(7+N1') points. 

LK)3DE - plot labelling code 

= 0 labelling not required 
= 1 plot user -defined 

plot labels (see XL) 

= 2 plot pro^ram-generateo numeric 
labels. (See XL) 

XL - The following data re< ’.red i f 
LKOL'Z = 1 

XL(1) = Number of labels N (< 100) 

XL (2) tiiru XL (4) - 

X,Y,Z positions 
of the first label. 

XI (3N-1) thru XL(3N+1) - 
X,Y,Z positions 
of the N-th label. 

XL(3N+2)= First laiiel (Holerith < 

10 characters) 

XL(4N+1)= N-th label (Holerith < 

10 cliaracters) 

The following da^a required if 
LKODL =2. 

XL(1) thru XL (3) - 

X, Y, Z offsets for labels in 
user units. 
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COMMON: 
SUBKOUTINES: 
LANGUAGE : 
DISCUSSION: 


XL('l) 
XL (5) 
XL(6) 

XL(7) 

XL(8) 

XL(9) 

XL(10) 


first Idbel 

increment ter successive label*' 
first point to be labelled tor a 
given curve. 

skip factor for points on curves 
first curve to be labelled 
skip factor for curves 
number of poii.Us co be labelled 
per curve. 


Cp»lMJ3N/FlLE9 9/ - ATLAS system common block 


LBLBUF, PCKTRC, PCKX^ Z ,SPTS 


FORTRAN 


Subroutines WGRAH, WGKAD and WGRAT together 
formulate interfacing softw.rr. e for the ATLAS 
graphics capability. Using these routines the user 
may define plots that may be displayed 
interactively or may be plotted offline. All 
features of the ATLAS interactive graphics 
capability are applicable to these user-defined 
plots. The mode cf usage is as follows: 

File Buffer;^ 

DIMENSION BUF1 (600) ,BUF2 (600) ,BUF3(117) 

Arrays for WGRAH routine (Maximm dimensions) 
D1MENS1(2N 1HD(29) ,XHD(22) ,CL(99) 

Dimension of CL=n-'inber of contour levels specified. 
CL 'nay be a simple variable for other types of 
plots 

DIMENSI)2N X(1000) ,Y (1000) ,Z (1000) ,IBFR(27) , XL (401) 
Dimer ions of x,y,z - rhe maximxim n'^nber 
of points to be displayed per call to WGRAD. 
Dimensic.'! of XL = (4*N+1) ohere N Is the number 
cf labels CO be displayed with LKODE=1 
Dimension o* XL = 10. IF LKODE = 2, 

XL may be a simple variable if no labels are to be 
displayed . 

DIMENSlj2fN 1TXT(90) ,NCP (10) ,CS(10) ,PJ2(S(10,3) , 

NWS (10) -ANG{10) 

Dimension of liPCT - nuir>^'or of characters to be 
displayed/'.'. 

DimOT'sion of NCII,CS, N"WS and ANG = Number of set 
points (NSP) 

Dimension o^ P^S - (MSP, 2) ii>or 2-D data 

^ (NSP,?) for 3-L data 

Open fiies 

CALL FILLADD (GRAFSy 1 ,BUF I , oO 0 , I ,0 , IRP) 
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CMJ. PlL£APD(GMVFSQ2,BUF2«oOO« 1,0,1RR) 

CLL FILEADP(OIAGFU.(.BUP3,117,1,0,IRR) 

R£3f4IKD GRAFSQ1 
REWIND GRAFSQ2 

User code to generate arrays for routines 
WGRAH»WGRAD and WGRAT 
CALL WGRAH(IHDrXHD,CL) 

C3^ WGKAO, (K(9£),X,y,Z,IBFR,LK17D£,XL) 

CALL WGRAT (K{9D,ITXT,NSP,NCH,CS,£9S»NWS,AN6) 

Return tiles 

CALL FETDEL{GRAFSt»l,lRR) 

CALL FETDEL(GRAFS^2,IRR) 

CALL FETD£L(DIAGF1L,IRK) 

Execute GRAPHICS module , vising only the j^FFLlNE 
{^ameter. This parameter is not required if 
interactive displays only are required 
EXECUTE GRAPHICS (J3FFL1NE = ) 



hor:-iNE : 
AUTHOR: 
DATE: 
PURPOSE: 

USAGE: 

PARAMETERS: 


mc;rah 

C. Koiuiier 
October 1975 

To write a header record on the GRAFSQ1 (first file 
in conmon block /F1LE99/) 

CALL WGRAil (1HD,XHD,CL) 

I K P U T 


Array IHC 

1HD(1) - Holerith blank -filled plot-grov^ 
identifier 

1HD(2) thru 1HD(4) - Holerith blank-filled plot 
identifier. 

IHD (5) - Nuinber ot title words for titling the 
axes for x-y graphs or for titling the 
display for orthographic, and contour 
plots. (< 4) 

IHD(b) - Graph format code: 

- 0, do not display grid 

= 1, draw axes with tick marks. 

=2; draw fall grid. 

IHD (7; - Number ot grid divisions along X axis. 

It set to zero, the program will 
automatically generate suitable 
divisions . 

IHD (B) - Similar to IHD (7), for Y axis. 

IHD (9) - Header code: 

=0, one header record for a display 
= 1, multiple header records for a 

display. This teat\ire is used for 
obtaining mtU.tiple plots on a single 
frame. Applicable only for graphs 
and contour plots. 

IHD (10)- Plot type code 
= 1, X-Y graph 

' 2, orthographic projection 
= 3, contovu: using rectangular boundary 
= 4 , perspective 

- 5, contour using user -specif ied 

boundary 
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- t 


( 


i 

f 

f I 


I 


r 


- Grid code 

0, linear X and Y 
= 1» loqarithinic X, linear Y 
2, linear X, logarithmic Y 

- j, logarithmic X, logarithmic Y 
= polar grid with radial axis 

- 5, polar grid with logarithmic radial 

axii> . 

1HD(12) - Text option code 

=. 0, suhroutxne IKiRAT will not be called 

- 1, subroutine WGRAT will be called. 
1HD(13) - Number ot divisions along each side ot 

the rectangular boundary for a contour 
plot . 

IMD(14) - ^^lmber of contour levels (< 99} 

1HD(15) thru lHD(1<l«3*IHb(5) ) 

X,Y plot titles or orthographic and 
contour display titles. 

1HD(15*4*IHD (5)) 

Order ot rotation about X c is. 


11ID(16««*1HD(S)) 

Or^r of rotation about Y axis. 
U1D(17^4*IKD(S)} 

Order ot rotation about Z axis. 

Each ot the above 3 variables may be 
assigned one ot the numbers 2 or 3. 
and are meaningtul only for orthographic 
projections . 

Array XHC 

XKD(1) - Eorizcntal plot size for offline plots 
XHI>(2) - Vertical plot size tor offline plots 

XHO(3) - Number of boundary points specified if 
user -spec? tied boundary option is used 
tor contour plots. 

XH0(4) - Notation angle about X axis 

XHD (S) - Rotation angle about Y axis 

XHD(6) - Rotation angle about Z axis 

XHD (4) thru XiiD(b) are meaningful only for 
orthographic projections. 

XHD (7) - X coordinate ot eyepoint 

XHD (8) - V coordiiiate ot eyepoint 

XHD (9) - 2 coordinate ot eyepoint 

XHD (10) - X coordinate of center of interest 

XHD (11) - Y coordinate ot center of interest 

XHD (12) - 2 coordinate ot center of interest 

XHD (7) thru XHD (12) axe meaningful only tor 
perspective plots 


t 
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COMMON : 
SUBROUTINES: 
LkiiNGUAG£ : 
DISCUSSION ; 


Code tor size of 
= 0, size * 

- 1., size - 

= 2., size = 

= 3., size = 

- 4., size = 


XHD(13) - Code tor displayinq the vxser axis 

orientation and scales tor orthographic 
j:lots 

- 0, di^lay orientation and scales 
/ 0, do not display the above 
XHD(14) - not used 

XHD(15) - Code tor size of labelling characte-rs 

C.lOb?" - default 
.25" 

.125" 

.1067" 

.0625" 

= floating point number indicating 
size in inches. 

CL(1) thru CL(1HD(14)) - 

Contour level values CL can be a single 
dunray variable if the plot type is not 
contour . 

XHD(16) - Scale Value for scaling orthographic 
projections 

XHD(17) - Maximum X value for subject space 

XHD(18) - Naximuin Y value for sub 3 ect space 

XhD(1i>) - Maximum Z value tor subject space 

XhD(20) - Minrimua X value for subject space 

XIlb(21) - Minimum Y value for subject space 

XMD(22) - Minimum 2 value tor subject space 

CL(4) thru CL{1HD (14) ) 

Contour level values CL may be a dummy 
variable it I HD (14) = 0 i.e. the plot is 
not a contour plot. 


C^M<Z>N/FILE99/ - ATLAS system common block 


None 


FiaRTRAN 
See WGRAD 
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kOOTINE: 


WGKAT 


AUniOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


C. Mounier 


OctcAer 1975 


To write . pecial aiuiotation data records. 
CALL WOkAT (K^ . ITXT', NSP , NCH, CS , P(9S , NWS , ANG) 


INPUT 


R(K) 


ITXT 

NSP 

NCH(4) - 

NCH (NSP) - 
CS ( 1) 

CS(NSP) - 


In(.Hit code tor data record 
= t 1, directs data in current call to 
be written to GRAFS02 with more 
data to follow 

= t 3, indicates that this is the last 
call to the routine for the 
current display. For the above 
options ♦ indicates Tektronix - 
drawn characters, - indicates 
vector - drawn character. 

Array of annotation ^formation (< 96 
words) 

Number of set points (locations to 
cooinence a strina of characters) 

Number of characters to be displayed at 
first set point. 

Same fox NSP-th set point 

Character size in inches tor first set 

point (required orily if K0D < 0) 

Same for NSP-th set point 



COMMON : 
SUBROUTINES: 
LANGUAGE: 
DISCUSSION: 


P(«S(1,1) thru P0S(1,3) “ 

S'.ibj€>ct space coordinates for first set 
point. (X « Y • Z ) 

HrfS(NSP,1) thru P{SS(NSP«3) - 

Same for NSP-th set point 

Only X and Y coordinates required for 2 
diroensiOTial displays. 

KCT(1) - Number of characters to be displayed at 
first set point. 

NCT (NSP) * Same for NSP-th set point 

The characters are stored contiguously in 
the array ITXT. 

ANG(1) • orientation angle in degrees, measured 
couuterclocKwise from horizontal 
direction for the first set point 
(required isily if K0D < 0) 

ANG(NSP)- Same for NSP-th set point. 

C}iMMJ?N/FILE9V - ATLAS system common block 

PCTCTXT 

PJ^HTKAN 

See WGRAD 
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ROUTINE 





■ » 


< 


AUTHOR: M. C. Rcfdmaii 

DATE: January 1!)73 

PURPOSE: To initialize specitied rows and columns to zero. 

USAGE: DIMENSION Z (NR)9W2,NL) ,DZ1 (KR)^Z*NL) ,022 (HRtJPHZ^NL) 

CALL ZER0Ci#L <M»NP,NL,Z,NRPWZ,1NDD,DZ1,DZ2) 

PARAMETERS: INPUT 

M - Number oi rows to zero out 
NF - Startinq column to zero out 

NL - Last coltann to zero out 

NR^Z - Row dimension size of Z,0Z1 and DZ2 
INOO - Indicator for zeroing out DZi and DZ2 
•0, Zero out only Z 
= 1, Zero out o*ly Z and DZI 
-2, Zero out only Z and DZ2 
-3# Zero out only Z,DZ1 and DZ2 

OUTPUT 

Z,UZ1»DZ2 Matrices with iubmatrices zeroed out 
COMMON: None 

SUBROUTINE: None 

LANGUAGE: FI9RTKAN 

DISCUSSION: The columns NF to NL for the first M rows are 

initialized to zero for natrices indicated by INDD 
indicator. 
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KOUTlNt: 

AUTHOR: 

DATE; 
PURPOSE: 
USAGE: 
PARAMETERS : 

COMMON : 
SUBROUTINES: 
LANGUAGE: 
DISCUSSION: 


ZER0UT 

O. L. Anderson 
Unknown 

Set the contents of a block of core to zero. 
CALL ZERJ9UT (FIRST, LAST) 

INPUT 

FIRST - Address of first word of block 
LAST - Address of last «K>rd of block 

Itone 

None 

CJiMPASS 

This routine is the same as WQZER0, part of the 
SNARK package. 
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1002. ATLAS CLIB 


Routine 

COTNE 

DESCIINP 

DRSGOTNS 

LXPFLEX 

FLEXPIL 

GCSGE^M 

RSATAT 

LRCGE0M 

MASSPIL 

SETUP 

STREP IL 

VAMAT 


LIBRARY ROUTINES 


Page 

1002.2 
1002.3 
1002. a 
1002.6 

1002.7 

1002.8 
1002.9 
1002.11 
1002.12 

1002.15 

1002.16 
1002.18 
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ROUTINE 


CUTNE 


AUniOR: Stig Wahls tr can 

DATE; July 1975 

PURPOSE: Generate a stillness data set Ircon a sxibset of an 

existing set. 

USAGE: CALL CUTNE (SET, NEWSET N0DSET,DATAFIL, KSFSIZE,IRR) 

PARAMETERS; INPUT 

SET _ Existing set number 

NEWSET - New set number 

N0DSET - Nodal subset number 

ELEMSET - Element subset ntiinber 

DAIM’IL - File name (use DATAKNF) 

KSFSIZE - KSF block size in NEWSET 
OUTPUT 

COMMON: IRR - LE 0 successful 

1 SET not available 

2 NEWSET exists already 

3 N0DSET not available 

4 ELEMSET not available 

5 N0DSET and ELEMSET not compatible 

SUBROU'x I'^ES : aiT 1 , CUT2 , CUT3 , COT 4 , CUTS , INCR 

LANGUAGE: SNARK 


j 

i 

I 
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KuOTINE; 


AUTHOR: 

I>AT£; 

PUKPfJSE; 

USAGE: 

PARAMETERS: 


COMMON : 
SUBROUTINES: 


DEsqmp 

P. 0. Nelson 


April 1976 

Scan the miniinum/inaxiinuni margins of safety 

array and check for convergence on eleinen*- ..rx . hies. 

SHARK CALL DESq0NF(DATAMlN,=N0LC,=I0PT1> 


INPUT 


DATAMIN 

N0LC 

BLGCYCL 

LNOCYCL 

CURCYCL 

C0NVERG 

ISET 

ISTAGE 

1PJ?S 


Minimum 6 maximum margins of safery 
matrix position 

Ntnnber of loadcases in current stage 

First design cycle in a do loop range 

Last design cycle in a do loop range 

Current design cycle in a do loop “•:;rles 

Array containing the users convergence 
constraint values. Cells 1 thru 13 
are for element types 1 thru 13. 

Data set number 
BC stage number 
Matrix position offset 


IKPUT/OUTPUT 

IJ3PT1 - Eleraenc convergence flag. Initialized 
to 1 by calling routine. Set to zero 
by DESCpNF if element convergence is 
success! ul. 


C?MM^»N/USERCJ2M/BEFCYCL, ENDCYCL , CURCYCL, 
CJ2WVERG(17) , ISET, ISTAGE, IPJ3S 
INTEGER DATAMIN 


None 


LANGUAGE: 


F^TRAN 



ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

COM^K>N: 

PARAMETERS: 


DEsqms 
F. 0. Nelson 
April 1976 

Check for user specified convergence 
options. Any specified option (s) will 
be tested for completion. 

CALL OESQJWS 

C0MMPN/USERCPM/BEGCYCL , ENDCY CL , CURCYCL , 
qA9VER6(17) , ISBT, ISTAGB, 1P0S 


INPUT 


BEGCYCL - First design cycle in a do loop range 


C0NVERG - Array containing the user convergence 
constraint options. Cells 1 thru 13 
are for element types 1 thru 13. Cell 
14 is the total weight change between 
consecutive cycles. Cell 15 is for 
ratios of weight change to total weight. 
Cell 16 is convergence siunmary print flag 
(=^0 skip print; #0 - print suiranary) . Cell 
17 is tlie DESC^S execution flag (=0 
- test cells 1 thru 15; <0 ~ convergence 
terminated; =1 - co. /ergence not required 
cells 1 thru 15 are :ero) . 


ISET - Data set niunber 


ISTAGE - BC stage number 

IP0S - Matrix position offset. 

Local position is set to IP0S ♦ 1. 


INPUT/OUTPUT 

ENDCYCL - Last design cycle in a do loop 
ramge. Set to zero by DESCJ2WS 
if error detected. 

CURCYCL - Current design cycle in a do loop 
series. Set to zero by DESC0NS if 
error detected. Set to ENDCYCL if 
convergence constraints satisfied. 
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SUBROUTINES; DESCjaWF, FILETkDD, IFRREC, SHIFT 


LANGUAGE: 
DISCUSSION ; 


SHARK, FORTRAN 

DESQ2fNS provides the user with the following 
convergence options: 

1. Maximum allowable changes for 
each selected element type 

2. Maximum change in total 

weight for two consecutive -ycles 

3. Maximum ratio of change in 
weight to total weight 

Convergence c( straint values must be stored by the 
user's control program in conano’'. block USERC(2IM, 
array C0NVERG. DESCjK^S should be called for 
initilization after READ INPUT and at the end of 
each design execution cycle. Each call to DESQn^S 
must be coupled with a preceeding EXECUTE MASS 
(PROCEDURE n) statement. 
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^.OUriNE: 

AirraoR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


0)MMON: 

SUBROUTINES: 

LANGUAGE: 


EXPFLEX 
F. P. Gray 
Jime 1974 

This subrout:lne expands a synovietric matrix to a 
full N*N matrix. 

CALL EXPFLEX (NTMP,NR,NP^S,Nj 

INPUT 

NTMP(NR) - A user matrix partition stored in 
lower triangpilar format. 

NR - Row dimensicn of NIMP 

N - Row dimensi cn of NP0S 

OUTPUT 

NP0S(N,N) - Expanded matrix 

None 

None 

F^TRAN 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAOE: 

PARAMETERS: 


COMMON : 

SUBROUTINES: 
LANGUAGE: 
FILE USAGE; 

DISCUSSION ; 


FLEXFIL 
F. P. Gray 
May 1973 

This routine sets up the tlexibility matrix data 
tile of the ATLAS -FLEXSTAB interface. 

CALL FLEXFIL (INDEX) 

INPUT 

INDEX - Flexibility matrix index name (H or L 
format; 

FXXXOOO - Flexioility matrix 


OUTPUT 

The flexioility matrix tile (unblocked) 

Hie flex matrix is written onto file SAVESSP as N 
records - one row per record. 

/KERRjJR/ 

/KyBUFF 

/K(1RNDM/ 

/MATTAB/ 

EXPFLEX, GMLKUP, INCRB 

PjaRTRAN, SHARK 

MULTRNF 

SAVESSF 


WARNING - This subroutine accesses data in olank 
common by direct calls to SNARE support 
routines. Modifications may be required 
tor new versions of SHARK. 

SNARK subroutines called - LQ11 

SHARK arrays used - KQDATA 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 
SUBROUTINES; 
LANGUAGE: 
FILE USAGE; 
DISCUSSION: 


GCSGE^ 

K. K. Yagi 
July 1976 

To convert the GCS stirfaoe external 

storage into matrices on 

DATARNP for the GCS -ATLAS interface. 

CALL GCSGEOM (LFIL,IO) 

INPUT 

LFIL - File on which the GCS surface external 
storage is stored. 

ID - id name of the geometry component 
to be defined. 

None 

FILEADD ,GCSRD , IFRREC , INCR 

FORTRAN 

DATARNF 

This routine is entered using the SNARK langtiage 
tor matrix manipulation. 

GCSGE0M checks DATARNF to see if this is the first 
geometry component to be defined or if there are 
other geometry definitions. It then creates or 
modifies matrices accordingly. 


1002.8 





t 


$ 


ROUTINE: KSATAT 

AUTHOR: R. L. Dreisbach 


DATl.: February 1976 

PURPOSE: Interface SAMECS-generated (see reference below) 

reduced stiffness matrices to ATLAS for subsequent 
ATLAS analyses. The C0EFIL 1 matrix data from a 
S0LPAC format file are read from an ATLAS restart 
file and output on file MULTRNF of ATLAS as a User 
Matrix. 


USAGE: CAL_ KSATAT (NIP, NSTR,IRR) 

PARAMETERS : INPUT 

NIF - Input file positioned properly at S^T<PAC 
matrix. Must be one of the ATLAS restart 
files (e.g. SAVESSF) . 

NSTR > Substructure number, if the output matrix 

is to be \ised as such. Otherwise, a number 
in the range 0 thru 999 to be used to 
identify the output matrix KREDXXX. 


> 



0 U T P 

U T 


IRR 

KREDXXX 

- Error indicator. 

0 = No errors 

1 = Error encoimtered 

- Stiffness matrix on MULTRNF iile. 
XXX is input as NSTR. 

COMMON: 

None 


SUBROUTINES: 

None 


LANGUAGE: 

F^IRAN 


DISCUSSION: 

The output matrix on the ATLAS file MULTRNF is 
identified as a SET/STAGE reduced stiffness matrix 
or as a lowest-level substructure reduced stiffness 
matrix. This matrix can be used in subsequent 


ATLAS analyses provided that the following ATLAS 
input data are also provided. 


t 
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1 . 


2 . 


3. 


4. 


Reterence: 


Nodal data containing at least those 
nodes associated with the stiffness 
matrix. 

Stiffness elements providing dxinn^ 
stiffnesses for at least the retained 
kinematic freedoms of the matrix. SCALAR 
elements are most convenient to effect 
these dummy stiffnesses. 

Boundary condition data which identify 
the retained freedoms in the order 
associated witfi the matrix. 

Other ATLAS data such as Loads, Mass, 
etc. to be associated with the retained 
freedoms. 

S. L. Barter, et al., "SAMECS Structural 
Analysis System — User's Document, Version 
S172E," Boeing Cooputer Services, Doc. 

No. BCS -00396, Aug., 1974. 
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ROUTINE: LRCGEpM 

AUTHOR: G. N. Bates 

DATE: Oecsnber 1975 

PURPOSE: To convert data intended for the NASA-LRC Airplane 

Configuration Program to ATLAS Geometry data. 

USAGE: CALL LRCG£(iM (1READ,IWRITE,1ERR) 

PARAMETERS: INPUT 

IREAD - User defined file which contains the 
NASA-LRC data 

INRITE - User defined file which will receive the 
ATLAS Geometry data 

lERR - Error counter 
=0, No errors 

#0, Error contcdned on file IWRITE 

COMMON: None 

SUBROUTINES: None 

LANGUAGE : ffaRTTiAN 

DISCUSSION: NASA-LRC data is read frcm file IREAD, converted to 

ATLAS Geometry data and ««ritten to file INRITE for 
further use hy ATTAS. 



I 


i 

4 . 
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ROUTINE 


MASSFIL 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


\ 

I* 

F. P. Gray 
May 1973 

This routine sets up the mass/geometry data file of 
the ATLAS -FLEXSTAB interface. 

CALL MASSF1L(IND£X,NSET,NSTAG£) 


INPUT 


INDEX 

NSET 

NSTAGE 

KM0ALTX 

KNC100X 

KRFVOXX 

MDCXXXX 


Mass matrix index name (H or L format) 

Data set nunt>er 

Stage number 

Nodal data matrix 

Nodal correspondence table 

Retained freedcmi vector 

Mass matrix 


Card Input: Reference 1-1 
OUTPUT 

The FLEXSTAB mass/geometry file (unblocked) 
SLENDER B(M)y RECORD 


WORD 


ITEM 

FORMAT 

1 



Floating 

2 



m 

3 


SYMM 

Integer 

4 


ASYMM 

N 

5 


CpfDE 

It 

6 


NN 

•1 

7 

XN1 


Floating 

8 

XN2 


II 

II 

It 

node coordinate 

It 

n 

m 

(NN words) 

M 

N 

m 


It 

7+NN 

MNl 


ft 

8+NN 

MN2 


ft 

If 

N 

mass at node 

It 

II 

If 

(NN words) 

H 

m 

N 


If 

7+2*NN 


ND^iF 

Integer 

8+2*NN 


X 

IHX or blank 

9*2*NN 


Y 

1HY or blank 

10+2*NN 


Z 

IHZ or blank. 
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CO^MON : 


THIN B9DY REQIRD 


WORD 


ITEM 

FORMAT 

1 



floating 

2 



It 

3 


20 

H 

4 


T 

II 

5 


SYMN 

INTEGER 

b 


ASYMK 

N 

7 


C(X)£ 

It 

8 


NN 

•1 

9 


NP 

t 

10 

XN1 


floating 

11 

YN1 


H 

12 

XN2 


It 

13 

YN2 

node coordinates 

It 

It 

•1 

(2«NN words) 

N 

It 

It 


n 

n 

M 


H 

10«2*NN 

MN1 


It 

11*2*NN 

MN2 


It 

ft 

•t 

mass at node 

It 

H 

ft 

(NN words) 

M 

■t 

II 


It 

l0^3*NN 

N1 


Integer 

M 

B1 

nodes and assoc 

ft 

n 

N2 

body tor each 

It 

tf 

B2 

panel comer 

If 

■ 

n 

point 

It 

ft 

ft 

(8*NP words) 

It 

10+3*NN+8*NP 

■* 


If 

11+3*NN*3»NP 


ND(2P 

Int i?ger 

12+3*SN*8*NP 


X 

IHX or blank 

13-3*i«W^8*NP 


Y 

IHY or blank 

14*3*NH+8*NP 


Z 

1HZ or blank 


An end-ot-£ile mark concludes the mass/geometry data. 

/KERR0R/ 

/CffNPhRS/ 

/KQBUFP/ 

/KQRNDM/ 



SUBROUTINES: 
LANGUAGE: 
FILE USAGE: 


SETUP, LJ8DAREC, INCRB 

P^TRAN, SNARK 

DATARNF 

MASSRNP 

SAVESSP 

WARNING - This subroutihe accesses daba in blank 
conmon by direct: calls to SNARK suppoirt 
routines. Modifications may be required 
for new versions of SNARK. 

SNARK subroutines called - LQll 

SNARK arrays used - VQDATA 

KQDATA 
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ROUTINE: 

AUTHOR: 

DAIE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


O)MM0N 

SUBROUTINES: 


SETUP 

F. P. Gray 
May 1973 

This routine sets up the geometric data for the 
FLEXSTAB mass/geometry file. 

CALL SETUP (KNOD,KNCT,MASS,N(njT,KR,MR,MR0W,NN0DE, 
ID,NRFV) 

INPUT 

KN0D(X,X) 

KNCT(X) 

MASS (X,X) 

KR 
MR 
MBfM 

NN$9DE 
ID 

NRFV 

OUTPUT 

N0UT(X) - Geometric ctata 
/KERR0R/ 

NCUIR 


- Nodal data matrix 

- Nodal correspondence table 

- Mass matrix 

- Row dimension of KN0D 

- Row dimension of MASS 

- Pointer to mass matrix terms for the 
body 

- Number of retained nodes tor the body 

- Body type indicator 

- Retained freedom vector 


LANGUAGE: 


FORTRAN 



ROUTINE: 


STREFIL 


AUTHOR: 

F. P. Gray 


DATE: 

June 1973 


PURPOSE: 

This routine reads a FLEXSTAB net loads file and sets 
up the ATLAS nodal loads matrices. 

USAGE: 

CALL STREFIL (NCASES) 

PARAMETERS: 

INPUT 



The FLEXSTAB net loads file (unblocked) 


NCASES - 

The number of load cases (integer) 



NOTE: The nxunber of load cases represents 

the nunber of input files, the 
niunber of symmetric cases, or the 
number of antisymmetric cases, 
whichever is largest. 


0 U T P U 

T 


eSYMMXX - 
QASYMXX - 

Symmetric nodal loads matrix 
Antisynmetric nodal loads matrix 



NOTE: The load case numbers will be 

assigned sequentially beginning 
with the first input file. 

COMMON: 

/KERR0R/ 

/KOBUFP/ 

/KQRNDM/ 


SUBROUTINES: 

None 


LANGUAGE: 

Fortran, snarr 

FILE USAGE: 

datarnf 

SAVESSF 
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DISCUSSION 


WiUtNINC 






* 

"r 




f 


- Thi3 subrounine accesses data in 
blank common l>y direct calls to 
SNARK support routines. Modifications 
may be required for new versions of 
si;akk. 


SNARK subroutines called > LQ11 

SNARK arrays used - VODATA 

KQDATA 


i 

} 

f 

/ 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON : 


VAMAT 

K. R. Helinur 
A. Tornallyay 
F. P. Gray 

December 1976 

Calcula-te shear, mom^t, and -torsion along a wing, 
body, and horizontal bail from a given set of panel 
airloads and panel weight (symmetric conditions 
only) 

Reference 1-1 
INPUT 

Tbe SDSS tape from FLEXSTAB - file £A ;F 
(Ref. D6-41064-3 FLEXSTAB 1.02.00 Prc 
Description) 

The panel weight matrix MDCXXXX 

Card Input: Reference Boeing document D6-42315TN 

OUTPUT 


File SAVESS1 - Un-iormated Binary (Ifile per case) 


Record 


Contents 


1 

2 

3 

4 

5 
t 

7 

8 
9 

10 


X coordinates of VAMAT cuts 
y coordinates of VT^MAT cuts 
Shear at cut K 
Net shecir at cut K 
Bending moment at cut K 
Net bending moment at cut K 
Torsion at cut K 
Net torsion at cut K 
Peine 1 airload 
Peine 1 areas 


/KERRpR/ 

/KQBUFP/ 

/K^RNDM/ 

/CARDS/ 

/MISC/IMAX , IVAM,NPR1NT,LBCUT,NSCUT,NPS1 , NPS2 ,NCS1 , 
NCS2,K(3ND 
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SUBROUTINES: 


LAMSUAGE: 


VAMGEP* 

VAMIT 

VAMJ3UT 

F!I?RTRAN, SNARK 


FILE USAGE: 


DATARNF 

MASSRNF 

SAVESSF 

SAVESS1 

SCOOSSF 


DISCUSSION: 


This routine represents the VAMAT prograin 
and is ttsed in conjvmcticn w^th the 
FLEXSTAB/ATLAS interface. 
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1003. NASTR/O^ TO ArLAS DATA CONVERSION ROUTINES 

I 


{ 

Routine 

Paqe 

V' . 

BC 

1003.2 


CMASS 

1003.4 

t 

ELESTIP 

1003.6 


INTNUM 

1003.9 


IREQI7G 

1003.10 


I^aAOS 

1003.11 


MATRIAL 

1003.13 


NASTATL 

1003.15 

r 

NprosTip 

1003.17 


REALNUM 

1003.19 


J 


t 
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ROUTINE: 

BC 


AUTHOR: 

Kandace R. Yayi 

DATE: 

February 1975 


PURPOSE: 

To convert NASTSAN data (SPC,SPC1 ,ASET, and ASETI 
Ccucds) into ATLAS BC data. 

USAGE: 

CALL BC(NEND) 


PARAMETERS: 

INPUT 



None 



OUTPUT 



NEND 

Equals 1 if an EjBF is reached, 
otherwise it equals zero. 

COMMON: 

O(aMM0N/NA/CARO(1O) ,NCARD,NTAPE,LTAPE,NATAP£ 


Common block 
program. 

to communicate with the calling 


CARD 

Array which holds the current 
NASTRAN card image. (Hollerith) 


NCARD 

Number of cards read in to date. 


NTAPE 

File where the ATLAS input goes. 


LTAPE 

File where the ATLAS output goes. 


NATAPE 

File containing an echo of the 
NASTRAN card images. 


Q»lMt«i/PSCJ3NST/PS (2048) , IP 


Common block 
constraints 

to receive from N0DSTIF the non-zero 


PS 

Vector containing nodes and their 
constraints . 


iP 

Number of words in PS filled vrLth 
data. 

SUBROUTINES ; 

INTNUM, REALNOM , SHI FT, ISCAN , PAC , IREQpG 

LANGUAGE: 

FjaRTRAN 
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DISCUSSION: 


BC reads in cards from NTAPE one at a time. 

It assumes the first card image has already 
been read into the array CARD before the sub- 
routine was called. All card images read in 
are inonediately echoed out to the NASTRAN 
output file. 


BC vnrites out the ATLAS card image onto LTAPE 
as soon as the NASTRAN code is translated. 

BC returns when an EfifF is reached or when a 
card other than SPC,SPC1,ASET, OR ASETI is 
encountered. 

A warning message is issued tdien an Bf9F is 
reached euul a continuation card was expected. 
The card is Ignored. 

The maximum number of stages allowed in the 
ATLAS BC data is 10. When more than this is 
encountered in the cout/^ersion, an error 
message is issued and only those SPC or SPC1 
cards with SID*s already read in will be 
converted. 

At the end of the BC conversion a table is 
printed on NATAPE showing the correspondence 
between the ATLAS stage numbers and NASTRAN 
set ID'S. 
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ROITTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMEIERS: 


CO^MON: 


SUBROUTINES: 

LANGUAGE: 


CMASS 

Kandace K. Yagi 
February 1975 

To convert NASTRAN data (CjmM2 cards) into ATLAS 
ccncentxated mass data. 

CALL CMASS (NENO) 

INPUT 

None 


OUTPUT 

NEND - Equals 1 if E(SF is reacdied, it 

otherwise equals zero. 

C^4M0N/NA/CAPD (10) ,NCARD,NTAPE,LTAPE»NATAPE 


ConBDon block to ccnmunicate with the calling 
program. 

CARD - Array which holds the current 

NASTRAN card image. (Hollerith) 

NCARD - Nxuiber of ceurds read in to date. 


NTAPE 

LTAPE 

NATAPE 


File vrtiere the ATLAS input goes. 

File where the ATLAS output goes. 

File containing an echo of the 
NASTRAN card images. 


INTNUM ,REALNUM,SHIFT , IRECpG 
F0RTRAN 


1003.4 


I 


DISCUSSION: 


1 


. CNASS rt ads in cards from the input file one 
at a tink*. It assumes the first card image 
has already been read in before the subroutine 
was called. All card images read In are 
immediately echoed out onto the NASTRAN output 
file. 

2. It virites out the AHA£ card image onto the 
ATLAS output file as soon as the NASTRAN card 
is translated. 

3. CMASS returns when an E|9P is reached or when a 
card other than 09NK.. is encountered. 

4. An >r message is issued when a continuation 
card was indicated tor a NASTRAN ''^^2 card 
and an E0F was reached instead. 
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ROUTINE: 


ELESTIP 


AUTHOR: 

DATE: 

PURPOSE: 


USAGE : 
PARAMETERS: 


COMION: 


SUBROUTINES: 


Kandace K. Yagi 
Febrtiary 1975 

To convert NASTRAN data (BAR0R,CBAR,PBAR,CHEXA1, 
CHEXA2 r r CR^ , PRpD , OQDMEN , FQDMEN , CTRMEN , 

PTRMEN , CQUAD 1 , PQUAD 1 ,CTRIA1 , PTRIA 1 , CQUA02 , 

PQUAD2 , CQDPLT, PQDPLT ^CTRPLT, PTRPLT, CIRBSC, 
PTRBSC,CSHEAR,PSH£AR,CTUBE,PTUBE cards) into 
ATLAS element data. 

CALL ELESTIP (NEND) 

INPU T 

None 


OUTPUT 

NENO - Equals 1 if an £0F is reached, 

otherwise it equals zero. 


CJ2MMJTO/NA/CARD (10), NCARD ,NTAPE , LTAPE , NATAPE 


Common block to coramunicate with the calling 
program. 

CARD - Array which holds the current 

NASTRAN card image. (Hollerith) 

NCARD - Number of cards read in to date. 


NTAPE 

LTAPE 

NATAPE 


File where the ATLAS input goes. 

File where the ATLAS output goes. 

File containing an echo of the 
NASTRAN card images. 


qfJMMJ3N/MC/MC0DE (49,2) 

Common block to receive from MATERIAL the material 
codes and their corresponding temperatures and 
NASTRAN MID»s. 

MQ0DE _ Matrix which holds the infonnation. 


INTNUM ,REALNUM, SHIFT, ISCAN, IREC0G 
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naRTRAN 

1. ELESTIF is divided into two sections. 

The first section reads in the element cards 
putting the P type cards on file JliNKP cuid the 
C type cards on file JUNXC. Hie CjniRl>D» 
CH£KA1» and CHEKA2 cards are put on JUNCXC. 
BAR^ is not put on a file but decoded as it 
is read in. 

The second section takes one card at a time 
from JUNSC then looks through JUNKP for a 
matching card. If none is found, an error 
message is issued and the next C type card is 
read in. If a match is found, the program 
goes to the prc^r place and decodes the 
cards, voriting the KPIAS card images on the 
output file. 

Transfer from the first section to the second 
occurs when a card is encountered that is not 
one of the NASTRAN cards mentioned in the 
purpose section above, or when an EfgF is 
reached . 

2. The routine rettums when an EfSF is reached on 
file JUNKC. 

3. The first secticm checks to make sure all 
cards that indicate a continuation cards do 
have them. If one is not found, a warning 
message is issued and that card is ignored. 

4. Whenever trouble is encountered in trying to 
convert an element in the second section, a 
warning message is issued indicating the 
trouble . 

5. The following shows the correspondence between 
the NASTRAN cards and the ATLAS cards they 
convert to: 

NASTRAN ATLAS 

CHEXA1,CHEXA2 PRICK 

C0NRj9D,CR0D and PRj90 R^ or BEAM 


CTUBE 

CBAR and PEAK 


BEAM 



CQDMEN and P^MEN, PLATE 

CTRMEN and PISmBI 

CQUAD1 and PQUADi, GFLATE 

CTRIAl and PTOIAl, 

CgUAD2 and PQUAD2, 

CTRIA2 and PTRIA2, 

CQDPLT and PQDPLT, 

CTRPLT and PTRPLT, 

CTRBSC and PTRBSC 

CSHEAP and PSHEAR SPLATE 


ELESTIP assumes the first card image has 
already been read into the array CARD before 
the subroutine is called. 
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ROUTINE: 


INTNQM 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


Kandace K. Yagi 
*^ebruary 1975 

To convert, a word containing eight Hollerith 
characters r^resenting an integer into that 
integer numher. 

I = INTNUM(X) 

X - The input Hollerith word to be converted. 

1 - The output integer form of X. 

None 

None 

PjaRTRAN 

1. If X is blank, I is returned with a zero 
value. 

2. The number in X must be stored in contiguous bit 
locations (no separating blank characters) , but can 
otherwise be located anywhere within X. 

3. No warning messages are printed. 





i 


ROUTINC: 

AUlUOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


IRECJ96 

Kandace K. Yagi 
April 1975 

To recognize the cards that are converted to ATLAS 
by any of the programs called by MASTATL. 

CALL IREC^(l) 

0 U T PUT 


COMMON: 


ROUTINES: 


I - Equals 1 if the card image in array 

CARD is recognized. Equals 0 
otherwise. 


Q2MM0N/NA/CARD(1O) ,NCAP.D,NTAPE,LTAPE,NATAPE 


ConoDon block to conmiunicate with the calling 
program. 

CARD - Array which holds the current 

NASIRAN card image. (Hollerith) 

NCARD - Number of cards read in to date. 


NTAPE - File where the ATLAb input goes. 

LTAPE - File where the ATLAS output goes. 


NATAPE - File containing an echo of the 
NASTRAN card images. 


None 


LANGUAGE : FORTRAN 

DISCUSSION: No warning or error messages are issued. 


j 


1 

[ 
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ROUTINE: 

AUTHOR: 

DAIE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMC»I: 


SUBROUTINES: 


I^AOS 

Kandace K. Vagi 
February 1975 

To convert NASTRAN L0ADS cards in^o ATLAS LjaADS 
data, NASTRAN F0RCE and MI9MENT cards into ATLAS 
N0DAL LfSAD data, and NASIRAN PL0AO2 cards into 
ATLAS ELEMENT l^AD DATA. 

CALL L0ADS(NEND) 

INPUT 

None 


OUTPUT 


NEND - Equals 1 if an lEfifF is reached, 

otherwise it equals zero. 


C^B4M^/NA/CARD(10) ,NCARD,NTAP£,LTAP£,NATAPE 


common block to communicate with the calling 
program. 

CARD - Array which holds the current 

NASTRAN card image. (Hollerith) 

NCARD - Number of cards read in to date. 


NTAPE 

LTAPE 

NATAPE 


File where the ATLAS input goes. 

File vdiere the ATLAS output goes. 

File containing an echo of the 
NASTRAN card images. 


1NTNUM,REALNUM, SHIFT, SQRT, IREC^ 


LANGUAGE 


E)9RTRAN 


DISCUSSION: 1. L(9ADS reads in cards from NT^PE one at a time. 

It assumr . the first card image has already 
been read into array CARO before the 
subroutine was called. All C 2 urds read in are 
immediately echoed out to the NASTRAN output 
file. 

2. L0ADS writes the ATLAS card image onto LTAPE 
as soon as the NASTRAN code is translated. 

3. If all tlie scale fact.ors on a NASTRAN LfSAD 
card are zero, a warning is issued and that 
card is ignored. 

4. If an E0F is encountered where a continuation 
card is expected, a warning message is issued, 
the card is ignored and L{3ADS returns . 

5. L0ADS returns when an E0F is reached or when a 
card is encountered that is converted in 
another routine. 
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ROUTINE: 

AUraOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

COMMON: 


COMMON: 

SUBROUTINES: 


MATRIAL 

Kandace K. Yagl 
Fe?jruary 1975 

I'D convert NASTRAN data (MAT1 and MATS cards) into 
ATLAS material data. 

CALL MATRIAL (NEND) 

INPUT 

None 

OUTPUT 

NEND ' Equals 1 if an £0F is reached, 

otherwise it equals zero. 

/NA/ 

Common block to communicate w^th the calling 
program. 


CARO 


Array which holds the current 
NASTRAN card image. (Hollerith) 

NCARD 

- 

Niimber of ceurds read 

in to date. 

NTAPE 

- 

File where the ATLAS 

input goes. 

LTAPE 

- 

File where the ATLAS 

output go«iS 

NATAPE 

- 

File contidning an echo of the 
NASTRAN card images. 


Cj»lM0N/MC/MC^t)E (49, 2) 

Common block to pass to ELESTIF the material codes 
and corresponding temperatures. 

MCPDZ - Matrix holding the information. 

INTNUM , REALNIM, IRECJ3G 


LANGUAGE: 


F0RTRAN 



DISCUSSION: 1. MATRIAL reads in cards from the input file one 

at a time. It assumes the first card image 
has already been read into array CAI^ before 
the subroutine is called. All card images 
read in are immediately echoed out to the 
NASTRAN output file. 

2. It writes the ATT AS card image onto the ATtAS 
output file as soon as the NASTRAN card is 
translated. 

3. MAmiAL retiims vdien an E0F is reached or wnen 
a card other than MAT1 or MAT3 is encountered. 
A warning message is issued when a 
continuation card is indicated and an E0F is 
reached . 


4. A check is made to make sure MAT3 cards have a 
continuatxon card. If not, a warning message 
is issued and that card is ignored. 

5. A check is made on the number of materials 
defined. If the ninnber exceeds 49, an error 
message is issued and the rest of the MAT1 and 
MAT3 cards are ignored. 

6. Poisson's ratios in the xy and yz directions 
are checked for absolute values greater than 
1.0, a waning is issued for any such cards 
and they are ignored. 
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ROUTINE: 


NASTATL 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

COMMOt:: 


SUBROUTINES: 


Kandace K. Yagi 
February 1975 

Ito drive the subroutines vrhich convert NASTRAN data 
i^to AHAS data. 


(YiLL NASTATL (LTAPE) 

LTAPE - fixe where the ATLAS output goes. 
q0MMflW/NA/C\RD(1O) ,NCARD,NTAPE, LTAPE, NATAPi^ 


Comoon block to conuaunxcate with the calling 
program. 

CARO - Array which holds the current 

NASTRAN card image. (BolleritJt) 

NCARD - Number of cards read in to date. 


NTAPE 

LTT^E 

NATAPE 


File \diere the ATLAS input goes. 

File iKihere the ATLAS output goes. 

File where the NASTRAN card images 
read in are echoed out to. 


C0MMJ<»N/PSCJWST/PS (2048) , IP 

ConuQon block to pass the non-zero constrainv.s from 
HC0STIF to BC. 


PS 


Vector containing nodes and their 
constraints - 

IP 


Number of words in PS filled with 
data. 


Q»lM^l/MC/MC^E (49, 2) 

Common block to pass the material 'odes emd their 
temperatures from MATRIAL to ELESTIF. 

MC^JDE - Matrix which holds the data. 

BC , CMASS , ELESTIF , KZTADS , MATR.IAL , N0DSTIF 


LANGUAGE; 


FORTRAN 



DISCUSSION: 1. NASTATL reads the first card from the ii^ut 

file into the array CARO. 

2. It then interrogates the card image finding 
which subroutines it should be sent to. 

3. Those subroutines return to NASTATL when they 
come across a card they do not convert. They 
pass that card image back via the array CARD. 

4. NASTATL either finds the proper svibroutine to 
send it to or trrites an error message when the 
card can not be recognized. It then reads in 
the next card. 

5. When an R|9F is reached by either NASTATL or 
one of the subroutines, NASTATL returns. 

No warning messages are issued. 
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ROUTINE: 


NflDSTIP 


AUTIioR: 

DATE: 

PURPOSE: 

USAGE: 

PAF'ANETERS: 


COmiON: 


SUBROUTINES: 


Kandace R. jai 
February 1975 

Tt> convert: NASTRAN data (GFiIO and GRDSBT cards} 
into ATXAS stiffness N^IIAL data. 

CALL NIADSTIP (NEND) 

INPUT 


None 


OUTPUT 

NEND - Equals 1 if an EifF is reached, it 

otherwise equals zero. 

C^MN|9N/NAA7^(10) ,NCARD,NTAPE,LTAP£,NATAPE 

Conunon block to ccmmunicate with the calling 
program . 

CARD 

NCARD 
NTAPE 
LTAPE 
NATAPE 


Array iidiidi holds the current 
NASTRAN Ccurd image. (Hollerith) 

Number of cards read in to date. 

File vrhere the ATLAS input goes. 

File tmere the ATLAS output goes. 

File contctining an echo of the 
NASTRAN card images. 


C53MMjroJ/PSCjmST/PS (2048) , IP 

Comnon block to receive frcxn NWJSTIF the non-zero 
constraints 


PS 


Vector containing nodes and their 
constraints . 

IP 

- 

Number of words in PS filled with 
data. 


INTNUM,REALNOM,ISCAN,SHIFT,PAC, IREC^ 


LANGUAGE: 


F0RTRAN 



DISCUSSION: 1. NjtDSTlF reads in cards frcxn the inptxt file one 

at a time. It assumes the first card image 
has already been read into CARO before the 
subroutine was called. All card images read 
in are immediately echoed out to tne NASTRAN 
output file. 

2. It writes the ATIAS card image onto the ATLAS 
output file as soon as the NASTRAN card is 
translated. 

3. NI9DSTIP returns vdien an Ef9F is reached or when 
a card other than GRID or GRDSET is 
encountered . 

No error or viarning messages are issued. 
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ROlfTINE: 
AUTHOR : 
DATE: 
PURPOSE: 


REAU9UM 

Kandace K. Yagi 
February 1975 

To convert a word cont^aining eight Hollerith 
characters represent^ing a real niunber into that 
real number. 


USAGE: R = REALNUM(X) 

PARAMETERS: X - The inpur Hollerith word to be converted. 

K - Wie output recil form of X. 

COIMON: None 


SUBROUTINES: None 


LANGUAGE: F^TRAN 


DISCUSSION: 


1. If X is blank* R is returned with a zero 
value . 

2. The number in X must be stored in contiguous 
bit locations (no separating blank 
characters) , but can otherwise be located 
anywhere within X. 

3. No warning messages are printed. 


' i 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 


PARAMETERS: 


ATWATEXP 
Kandace R. Yagi 
April 1975 

To convert ATLAS internal data into NASTRAN data or 
to convert ATLAS internal data into expanded A*nAS 
data. 


CALL ATNA(ISET,ISTAGE,NCJ3ND,L11,L21,L31rD31, 
NELE ,N{ID ,LDBC ,MASS ,LISTN ) 

CALL ATEXP (ISET^ISTAGE , BL,L11 »L21 ,L3 1 ,D3 1 ,NELB » 
N0D ,LDBC, LISTA , LISTEXP) 


INPUT 

ISET 

ISTAGE 

NC0ND 

L11 

L21 

L31 

D31 

NELE 

N0D 


(ATNA) 

Set number 
Stage nxunber 

Mass distribution condition number 

Name of tlie free loads matrix 

Name of the retain loads matrix 

Name of the support loads matrix 

Name of the support displacement 
matrix 

1 if element data are to be 
converted, othervdse 0 

1 if node data are to be converted, 
otherwise 0 


LDBC 


1 if loads and BC data are to be 
converted, otherwise 0 


MASS 


1 if mass data are to be converted, 
otherwise 0 


LISTN 

INPUT 

ISET 


Output file where the NASTRAN data 
goes 

(ATEXP) 

Set ntirober 
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NELE 


St^lge ntajnber 
Alvrays set 0 

Name of free loads matrix 

Name of retain loads matrix 

Name of support loads matrix 

Name of the support displacement 
matrix 

1 if element data are to be 
converted, otherwise 0 

1 if nodal data are to be converted, 
otherwise 0 


LDBC 


LISTA 


LISTEXP 


1 if loads and BC data are to be 
converted i. otherwise 0 

ATIAS inp\it card images, if none set 
0 

Output file where the expanded ATLAS 
is put , 


CC»MON: 


SDBROUTINES: 


LANGUAGE: 


C0MM^/KQRNDM/ - system common block 

CpMMpfN/KQBUFP/ - system common block 

C0MM0N/KERROB/ - system common block 

Cj»4MJ2W/LRCJ»W - L0DAREC common block 

C(2fMMJ?N/INCREMT/ - ccirnion block of increments used 

for creating new user id*s when 
more than one NASTRAN card is 
converted from one ATLAS card. 

SHIFT, IFFREC,N0DEXP,N0DCNV,SMASK,ES^T1 , 

SHELL , INCR ,KSFRE^, ELEMEXP , ELEMCN V, BCLDEXP , 

BCCNV , LDSCNV ,MAS SCNV , EXPFILE 

FORTRAN 
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DISCUSSION: S\ibrout.ine AIMA is used for two purposes. One, to 

convert ATLAS internal data to ItfkSTRAN. Two, to 
convert ATLAS internal data into expanded ATLAS 
data. 

Entry point ATNA is used for the ATLAS to NASTRAN 
conversion and entry point ATEXP is us^ for 
expanded ATLAS. 

The ATLAS to NASTRAN conversion for DC, I^IADo and 
ELEMENT data takes place in two steps. The first 
is conversion of ATLAS internal to ATLAS expounded. 
The second is from ATLAS expanded to NASl^AN. 

The ATLAS to NASTRAN cunversicxi for Mass data is 
directly from ATLAS internal to NASTRAN. 

The ATLAS to NASTRAN conversion for Nodal data is a 
combination of the above two. For the creation of 
the GRID cards the conversion is done in the two 
step way and for creation of SEQGP cards the 
conversion is done directly. 

Before calling the subrovttine, DATARNF,MASSRNP, 
MERGRNF, and SCOORNF must be opened. Also 
SC00SSF,SCO1SSF,SC02SSF, and SC03SSF and the output 
file must be assigned. 

Error messages are issued and the subroutine 
returns vdien any of the internal ATLAS matrices 
needed for the conversion are unavailable. 

For the expanded ATLAS, if LISTA equals 0 LISTEXP 
will just hold the data sets created. If LISTA is 
not zero, LISTEXP will hold the data from LISTA 
with the expanded ATLAS data sets replacing their 
corresponding data. 

This routine is coded using the SNARK language for 
matrix munipulation. 
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ROITTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 




BCCNV 

Kandace R. Yagi 

December 1974 

To convert expanded ATLAS BC data into NASTRAN data 

(SPC and ASET cards) . 

CALL BCCNV (NTAPE) 

INPUT 

NTAPE - The rile vb re the NASTRAN cards 

are vnritten. 

C|0MM^/CARDS/ - A L^AKEC conmon block 

C0MM0N/LRC^1M/ - A LjSDAREC COTimon block 

LJ5DAREC ,0PTF0R 

FORTRAN 

1. The ATLAS input cards are assumed to be ou the 
input file. If a different file is wanted, 
NINT in the common block LRC0MM will have to 
be changed. 

2. Only one card inage is kept at a time. 

3. *»he ASET card is made from the data of four 
RETAIN cards. After every fourth RETAIN card 
is read in, the ASET card is written to NTAPE. 

4. The SPC card is written from the data of one 
SUPPORT card. The SPC card is written as soon 
as the SUPPORT card is deciphered. 

5. If the first item on a card is not 

BEGIN, END, STAGE, SET,RETAIN, Or SUPPORT, the 
card is not recognized by this program. A 
warning message is issued and the card is 
ignored - 
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BCCNV returns when an END card is reached, or 
when a record is encountered which takes up 
more than one card. The latter condition is 
included so that a coroment card can be the 
delimiter between the support of inactive 
freedoms and the support of active freedoms. 
The latter are converted with the "support 
displacarient" data and therefore should not be 
converted here. The SUPPORT DISPLACEMENT 
cards are converted by the LD.'-NV routine. 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 


USAGE: 


PARAMETERS: 


CO^WON : 


BCLOEXP 

Kandace K. Ycigi 
April 1975 

To prepare data for and drive the subroutines which 
take internal ATI.^JS data and convert it into 
expanded ATLAS input data for L0ADS and BC. 

CALL BCLDEXP (ISIT, ISTG,L1 1 ,L21 ,L31 ,D31 ,KRFV, 
NDIM,NN) 


INPUT 



ISIT 

- 

Set number 

ISTG 

- 

Stage munber 

L11 

- 

Loads matrix for the free partition 

L21 

- 

Loads matrix for the retain 
partition 

L31 

- 

Loads matrix for the support 
partition 

D31 

- 

Support displacement matrix 

KRFV 

- 

Flag to indicate if retained freedom 
vector is available or not. 

NAIM 

• 

Row dimension of KRFV 

.,W 

- 

Number of nodes. 

qaMMJ»N/KERR0R/ 

A system common block 

I 

1 

A system common block 

CjaMMJJN/KQBUFP/ 

A system common block 

1 

0 

1 

A 14TOAREC common block 


S UBROUTI NES : SHI FT , RETEXP , I FRREC , SDEX P, GMLKUP , INCRB , 

LDPRT,DISPRT 


LANGUAGE: FpWTRAN 


1 


I 
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DISCUSSION: 


* 


BCLD£XP contains SNAPK statements. 

The expanded ATLAS card image data for L0ADS is 
output on SC03SSF, for BC it is on SC02SSP. 

BCLOBXP expects the nodal corresoondence table to 
be read in at position 1 and the afsembly control 
vector to be read in at position ? before it is 
called. It also expects the retained freedom 
vector to be read in at position 2 if it is 
available. 
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ROUTINE: 

AUTHOR: 

OAI£: 

PURPOSE: 

USAGE: 

PARAMETERS : 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


CNVMASS 
M. Tamekvini 
March 1975 

TO prodTice NASTRAN card linages from ATLAS internal 
mass data. 

CALL CNVMASS (NCT,RRFV,MASS»NRJ8WS,N0UT,NRETH0D,ST, 

I N P U 
NCT 
KRFV 
MASS 
NR0WS 
NRETN^ 

ST 

N0UT 
NIYPE 
NRET 

None 

ZERPUT , SHIFT , NCUIR, J2PTP;3R 
FJ3RTRAN 

NASTRAN C0NM1 cards are created from the 
information in the internal ATL/tS data. 

No error/Warning messages are issued. 


NTyPE,NRET) 

Nodal correspondence table 

Retained freedom vector 

Mass matrix 

Row dimension of KRPV 

Number of retained mass nodes 

Matrix to store mass matri:' for 
nodes 

Output: file 

Matrix type, diagonal or ful’. 

Vector of retained nodes (internal 
ID’S) . 



ROUTINE: 


AUTHOR: 

DAIE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


CO>WON : 


DISPRT 

Kandace K. Yagi 
March 1975 


To print expcinded BC support cards of active 
freedoms and the loads stpport displacement cards. 


CALL DISPRT (D,NR0W,KACV,KFAV,NCT,NN,LISTLD,LISTBC, 
NUL) 


INPUT 

D 

NR0W 

KACV 

KFAV 

NCT 

NN 

NUL 

LISTED 

LISTBC 


Displacement matrix. 

Nuntoer of rows in D. 

Assembly control vector. 

Freedom activity vector. 

Nodal correspondence matrix. 

Number of nodes in set. 

0 if D is a null matrice, otherwise 

1 . 

File where the SUPPORT DISPLACEMENT 
card images are written. 

File where the BC card images are 
written . 


C0MW|^/LOADS/NF0RC, NF , LC ,LCR 


Common block to coonatinicate with the calling 
program. 

NPpRC - Array vhich holds the active freedom 

nxinbers. 

NF - Number of active freedoms. 


LC 


Nuirber of load cases tho matrix will 
hold. 


LCR 


Nvurber of load cases processed to 
date. 
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SUBKOUTINES: SHIFT, NCOIR 


LANGUAGE: 

DISCUSSION: 


EyaKTRAN 

(1) If D is null, only the support cards are 
generated. If D is not null, both the support 
cards and the support displacement cards are 
generated . 

(2) DISPRT looks at both KACV and KFAV to find 
which nodes and freedoms have displacements. 

It then prints out the support cards. If D is 
not null, it also goes through D printing both 
the zero and non-zero displacements for the 
support displacement data. 

No error or warning messages are issued. 
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ROUTINE: 


ELEMCNV 


AUTHOR ; 

DATE: 

PURPOSE; 

USAGE: 

PARAMETERS: 

COMION: 


SUBROUTINES: 

LANbUAGE: 


KANDACE K. Yagi 
December, 1975 

To convert e.tpanded ATLAS element data into NASTRAN 
data (CiJNRjaD,PBAR,CBAR,PSHEAR,CSHEAR,PrRIAl,CTRIAl, 
PCUAD1 ,CpUAD 1,CHEXA1,PTRMEM,CTRMEM,P<»EMEM,C0DMEM 
cards) . 

CALL ELEMCNV (NTAPE) 

NTAPE - the file idiere the NASTRAN card 
images are written. 

C0MM0N/CARDS/ A K?DAREC common block. 


qaMM0N/LRC0MM/ A I^AREC common block 

CjaMM0N/INCREMT/ Common block which holds the 

increments used when one ATLAS 
card creates two or more 
NASTRAN cards. The increments 
are added to the ATLAS user 
number to create new ICASTRAN 
user numbers. 


NL,NU 

1PL1,IPL2 

IR^U,IR(2DL 

ICVU,LCVL 

ICVU1,1CVU2 

1CVL1,ICV1.2 


SPAR and Q9VER midnodes 
(defaiat 10000,20000) 

PLATE stiffening (default - 

10000 , 20000 ) 

Upper and lower R(OS of SPAR 
(default - 10000,20000) 

Basic CjfVER (default - 10000, 
20000 ) . 

Upper CJIVER stiffening (default 

- 12000,14000) 

Lower C^VER stiffening (default 

- 22000,24000) 


L0DAKEC ,0fPTFjaR , SHIFT 


fVRTRAN 
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DISCUSSION; 


1. The ATLAS input card images are assumed to be 
on the input file. If a different file is 
wanted, NINT in the common block LRC0MM has to 
be changed. 

2. Only one ATLAS card image is kept at a time. 

3. R0D and SR0D cure converted to 

4. SPAR is converted to Q»IR0D,CSHEAR and PSHEAR. 

5. BEAM is converted to PBAR and CBAR. 

b. C!;2>VER and PLATE are converted to CTRMEM and 
FTRMEN, or C(^>M£M and PQDMEM. 

7. GPLATE is converted to CTRIAl euid PTRIAl, or 
OQUAD1 and PQUAD1. 

8. BRICK is converted to CHEXAl. 

9. SPLATE is converted to CSHEAR and PSHEAR. 

10. Off-set PLATES, BRICKS with more than 8 nodes, 
and SCALAR elements are not converted. If any 
of these are encountered, a warning message is 
issued and the element is ignored. 

11. A check is made on the lumping factors of 
SPARS. It they are not zero a warning message 
is issued and they are assumed zero . 

12. 21A,Z2A,Z3A,Z1B,Z2B, and Z3B, and Z3B in CBAR 
cards are not set. Conment cards are issued 
to indicate what they should be. 

13. No material property definition cards are 
created Oy this program. MAT1 and MAT3 
comment cards are issued when an element is 
converted that needs one. 

14. If a card other than BEGIN, END,R{iD, BEAM, SPAR, 
C0VER, PLATE, GPLATE, BRICK, SPJJD, SPLATE, or 
SCALAR is encountered, a warning is issued and 
the card is ignored. 

15. ELIMCNV returns when an END card is reached. 
There is no check for E0F. 

No error messages are issued. 


'i 
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ROUTINE: 

AUTHOR; 

DATE; 

PURPOSE; 


ELEMEXP 
S. Wahlstrom 
June 1972 

To create expanded ATLAS input cards from the RSF 
matrices . 


USAGE: 

PARAMETERS: 


CALL ELEMEXP (KSF,NCT,FIL,PRjaiPPW) 

INPUT 

Matrix containing element data. 
- Nodal corresp<»idence table. 


KSF 

NCT 

FIL 


PRJZIPFW 

OUTPUT 


File v^ere the expanded ATLAS data 
goes. 

Field width used for section 
properties. 


None 


SUBROUTINES: SHIFT, NOJIR, PON0NEL 

LANGUAGE: F)9KTKAN 

DISCUSSION: ELEMEXP does the setting up of the information for 

the card images. It pases this information to 
PON^EL vdiich does the actual writing of the card. 

No error or warning messages are issued. 


t ‘ 
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ROUTINE: 

EXPPILE 



AUTHOR: 

Randace K. 

Yagi 

DATE: 

April 1975 



PURPOSE: 

To create an 
deck and one 

ATLAS ii^ut deck from a given ATLAS 
to four replacement input data sets. 

USAGE: 

CALL EXPPILE 

(ISET,LISTA J.ISTEXP,U10D , LELE , LBC, 
LLD , Nin> , NEI£ , LDBC) 

PARAMETERS: 

INPUT 




ISET 

- 

Set number. 


LISTA 


If 1, no ATLAS input data to be 
changed, otherwise the input data 
will be changed. 


LISTEXP 

- 

Output file containing the modified 
input data. 


LN19D 

- 

File of new nodal data. 


LELE 

- 

Pile of new element data. 


LBC 

• 

File of new BC data. 


UJ) 

- 

File of new L)9ADS data. 




If 1 then replace nodal data, 
othe 3 :wise Nj2D = 0. 


MELE 

- 

If 1 then replace element data, 
otherwise NELE =0. 


LDBC 

• 

If 1 then replace loads and BC, 
otherwise LDBC =0. 

CX)MMON: 

None 



SUBROUTINES: 

ISCANfKiaMSTR 

,NSCAN,LSTRNG 

LANGUAGE: 

FORTRAN 
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DISCUSSION; 


It LISTA is 0, only the replacement sets indicated 
are placed on LISTEXP. lUpD and/or LELE make up 
the stiffness data set. 

It LISTA is a file name, it is searched for the 
stiffness, loads, and bC data sets. If any of 
these data sets are found on LISTA, and the 
corresponding indicator (N(n>,NELB,LDBC) is turned 
on, that data set will be substituted in the input 
deck. 

If there is more than one stiffness, loads, or BC 
data sets in the input file, just the first one is 
replaced. 
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ROUTINE: 


LDSCNV 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

CO^mON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


Kandace K. Vagi 

December 1974 

To convert expanded ATLAS L(9ADS data into NAST.'AN 

data (F0RCE,(40MENT, and SPC cards) . 

CALL LDSCNV (NTAPE) 

INPUT 

NTAPE - Pile where the NAS TRAN cards are 
tnritten . 

QZMM0N/CARDS/ A I^DAREC common block. 

A I^AREC consaon block. 

L^aDAREC, (3PTP(3R , SQRT 

FJ3RTRAN 

1. The ATLAS input card images are assumed to be 
on the input file. If a different file is 
wanted « NINT in the common block LRQ^MM has to 
be changed. 

2. Only cme card image is kept at a time. 

3. Nodal loads data is converted into P0RCE emd 
MOMENT cards. 

4. SOPP0RT DISPLACEMENT cards are converted into 
SPC cards. 

5. Cards not recognized by this program trigger a 
warning message and a^re then ignored. 

6. LDSCNV returns when an END L^ADS card is 
reached . 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 


IDPRT 

Kandace K. Yagi 
March 1975 

To store the loads in a dunnoy matrix and then use 
that inatrix to print ATLAS cards in expanded form. 

CALL LDPRT (L,LR^W,KACV,KFAV, 1DUMM,NN,NCT,MATR, 
LDWP,LIST) 

INPUT 
L 

ZjRfM 
KACV 
KPAV 
IDUMM 
NN 
NCT 
MATR 

LDWR 
LIST 

OUTPUT 
None 

CJ3MM0N/L|3ADS/NP‘iaRC, NF,LC ,LCR 

Common block to conununicate with the calling 
program. 

NPP»RC - Array whicdi holds the active freedom 

numbers . 


Loads matrix. 

Number of rows in L. 

The assembly control vector. 

The freedom activity vector. 

A dummy matrix. 

Number of nodes in set. 

Nodal correspondence matrix. 

15 if free loads matrix 
30 if retain loads matrix 
45 if support loads matrix. 

1 if this is the last matrix to be 
read in and a print is wanted. 

0 if no print is wanted. 

Pile where the ATLAS card images are 
to be printed. 
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fJF - Nu:i4)er of active freedoms. 

LC - Nvunber of load cases the dxminy 

matrix will hold. 

LCR - Number of load cases processed to 

date . 

SUBROUTINES; SHIFT, NCUIR 

LANGUAGE: FORTRAN 

DISCUSSION: 1. In the calling program IDUMM shoxild be set up 

such that the number oi rows equals NN and the 
number of columns equals NF times LC. 

2. LOPRT goes through L only looking at load 
cases LCR 1 to LCR * LC, It reads each row 
of L finding out whic^i node and freedom it 
represents by examining KACV and KFAV. It 
then puts the information from L into its 
proper place in IDUMM. 

3. If LDWR equals 1, LDPRT will print the 
expanded ATLAS load cards for load cases LCR * 
1 through LCR * LC using only the non>zero 
load values in IDUMM. 

No error or warning messages are issued. 
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ROUTINE: 


MASSCNV 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


M. Tamekuni 
Mar<^ 1975 

To create NASTRAN card images from the internal 
form of ATLAS data. 


CALL MASSCNV(NSBT,NCK7ND,I99UT»NI^S,NR) 
INPUT 

Set number. 

- Stage number . 

Nuitdier of rows in KRFV matrix. 
Number of retained nodes. 


NSET 

NQJND 

NRpHS 

NR 

OUTPUT 


NpUT - File where the NASTRAN output goes. 

CpMF^m/KQRND^V^ A ^stem common block. 
Q0MMI9N/KQBUFF/ A ^stem common block. 
C0MMj9N/K£RRj9R/ A ^stem common block. 


SHIFT, INCR, IFRREC,INCRB ,R£TN(9DE,CNVMASS 
FORTRAN 

MASSCNV contains SNARK statements. 

MASSCNV reads the appropriate matrices and then 
calls RETN^E and CNVM/^S to do the actual 
conversion to card images. 


Error messages are issued when matrices needed for 
the conversion are not found. 
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KOOTINE; 

AUIUOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 

COMMON: 


SUBROUTINES: 
LANGUAGE : 


N0DCNV 

Kandace K. Yagi 

December 1974 

To convert expanded ATLAS nodal data into NASTRAN 

data (GRlD<rMPC« and SEQ6P cards). 

CALL N)9DCNV{NTAPE) 

NTAPE - The file where the NASTRAN card 

images are lyritten. 

Q0MM^/CARDS/ A L0DAREC comnK>n block. 

CSSMMjra/LRCJZffMV' A 4JDAREC common block. 

QZMMjro/INCREm/Conino block which holds the 

increments used \^en one ATLAS card 
creates two or more ..ASTRAN cards. 
The increments are added to the 
ATLAS user number to create new 
NASTRAN user numbers. 


NL,NU 

IPL1,IPL2 

IR)3DU,IRjaAL 

I \TJ,ICVL 
1CVU1.ICVU2 


- SPAR and COVER mid -nodes (default - 

10000,20000) 

- PLATE stiffening (default - 

10000 , 20000 ) 

- Upper and lower RODS of SPAR 
(default - 10000,20000) 

- Basic COVER (default - 10000, 20000) 

- Upper COVER stiffening (default - 
12000,14000) 


1CVL1,LCVL2 - 

l<H)AREC,pPTF(*R 

F^TRAN 


Lower COVER stiffening (default - 
22000,27000) 
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DISCUSSION : 


(1) The ATLAS input card linages are assumed to be 
on the input file. If a different file is 
wanted, NINT in tlie common block LRQaMM has to 
be changed. 

(2) Only one card image is kept c . time. 

(3) Node cards specifying three coordinates are 
converted into one GRID card. Node cards 
specifying four coordinates are converted into 
two GRID cards and one MFC card. 

(4) A SEQGP card image is made after every fourth 
GRID card is created. 

(5) NJ?DCNV does not check for unrecognized cards 
or for E^FF»s before the END i^AL DATA card. 

(6) N0DCNV returns when an END N0DAL DATA card is 
reached . 

No error or wamir.g messages are issued from 

NJ2DCNV. 
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ROUTINE: 

AUTHOR: 

DATE. 

PURPOSE: 


N^EJIP 

S. Wahlstram 
June 1972 

To create expanded ATLAS input cards from the nodal 
data matrix. 


USAGE: 


PARAMETERS : 


COMMON : 


CALL NJ3DEXP(N^MAT,.RN,NN,NCT,FILE,F^rRMAT) 
INPUT 

N0DMAT - Nodal data matrix. 

RN - Row dimension of N^MAT. 

NN - Number of set. 


NCT 

FILE 

FjafRMAT 


None 


Nodal correspon ence table. 

Pile on whicn the expanded ATLAS 
inpu\- rl via axe written. 

The punch format 

GE 0 desired field width 

(? < FORMAT < 15) 

L'T’ 0 desired field width but decimal 
point line up. 


SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


pPTry>R,NCUIR 

FORTRAN 

The nodes are printed out in user order - 
No error messages are issued. 
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ROUTINE: 

AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION: 


PUN(2NEL 
S. Wahlstrom 
June 1972 

Td crea'te expanded ATLAS inpu^ card ii^ges of 
element data. 

CALL PUN^INEL (ID, NAT, TEMP, USERID ,N(n>ES,NN0DES, 
PR(^,PR(9PFH,NPR0P,FIL) 


INPUT 

ID 

MAT 

TEMP 

USERID 

N0DES 

NN^DES 

PR0P 

PRJSPFW 

MPR(2nP 

FIL 

None 


Element type (INTEGER) 
Material code. 

Temperature . 

ELement user id (integer) . 

Vector of user node numbers. 

Number of nodes. 

Vector of element properties. 

Field width used for section 
properties. (integer) 

Number of properties. 

Output file. 


0PTP^ 

FORTRAN 

PUN0NEL takes the input information and creates one 
ATLAS element card image. 

No error or %«aming message is printed. 
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KUUriNE: 

AUTHOR: 

DATC: 

PURPOSE: 

USAGE: 

PARAMETERS: 


COmON: 
Sl»BROUTlNES: 
LANGUAGE: 
DISCUSSION : 


RETEXP 
M. Tainek.xmi 
March 1975 


Tc create AFLAS RETAIN card iioages. 


CALL RETEXP (NRET,NCT,NJRJT,ND1M) 

INPUT 

Retaxned treedom vector (KRFV) . 
Nodal correspondence table. 
Output t’le- 
Dimensxon of NRET 


NRET 

NCT 

N(9UT 

NDIM 

Ncme 


SHIFT, NCUIR 
FjaRTKAN 

RETEXP takes the information from NRET and NCT and 
creates expanded ATLAS input data. 

No error or warning messages are issued. 
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ROUTINE: 


RETNjaDE 


AUTHVA: 

DAT -- 
PURPOSE: 

USAOE: 

PARAMETERS: 


COMMON: 

SUBROUTINES: 

LANGUAGE: 

DISCUSSION; 


M. Taioekxjni 
March 1975 

To con?)Ute the number of retained nodes cuid create 
a vector containing those nodes . 

CALL RETN0DE (KACV,NR,NRETD0Dii,NRET) 

INPUT 

KACV - Assembly control vector. 


NR 

Number 

of 

nodes. 


OUTPUT 





NRETN0D 

Number 

of 

retained 

nodes. 

NRET 

Vector 

o£ 

retained 

nodes. 


None 

None 

FORTRAN 

A pass is made through KACV and a check is made for 
non-zero freedoms. These non-zero freedoms are 
counted and put into the vector . 

No error or warning messages are issued. 
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ROUTINE 


SDEXP 


AUTHOR: 

DATE: 

PURPOSE: 

USAGE: 
PARAMETERS : 


Cu(«ON: 

SUhkOUTINES: 

LANGUAGE: 

DISCUSSION: 


M. Tainekuni 
March 1975 

Create ATLAS data SUPP0R1 car a images for inactive 
freedoms. 

CALL SDEXP(KFAV,NCT,NJ^UT,NN0DES) 

INPUT 
KFAV 
NCT 
NJ3UT 
NK0DES 
None 
SHIFT, NCUIR 
FJ2»RTRAN 

SDEXP takes tiie xniormation from KFAV and NCT and 
writes it to NjJUT in the form of expanded ATLAS 
input '^ata - 


Freedom activity vector. 
Nodal correspondence table. 
Output file. 

Number of nodes. 


No error or warning messages are printed 
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